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PREFACE 


This report is the second of two parts and completes 
the documentation on NASA Grant NGR-19-001-015. It also 
served as the PhD dissertation for Edwards G. del Valle. 



APPENDIX A 


EXPLANATION OF THE COMPUTER IMPLEMENTED SOLUTIONS OF 
THE ENERGY TRANSFER FOR DECOMPOSITION 
IN-DEPTH OF PLASTIC ABLATORS 

The ABLATINl and ABLATIN2 systems are general analyses 
implemented in FORTRAN IV for studying the energy transfer 
in the combined decomposition/char zone of a charring abla- 
tor. Both of these analyses treat the decomposition of the 
virgin material in the same fashion. Namely, a pseudo- 
order kinetic expression of the form of Equation (2-1) is 
used to describe the decomposition process. These analyses 
differ, however, in the way the chemical generation term is 
calculated in the char zone. As was explained in Chapter 
III, there are three chemically distinct flow conditions 
that are considered, which are, frozen, equilibrium and non- 
equilibrium flow. The ABLATINl analysis considers the 
pyrolysis gases to be either frozen (not chemical reactions) 
or, in chemical equilibrium. The frozen flow and equilibrium 
flow cases give the lower and upper limits of the total ener- 
gy transfer in the decomposition-char zone, respectively. 

The ABLATIN2 analysis considers only the gases to be in che- 
mical non-equilibrium: i.e., the rate of reaction is 

described using finite rate chemistry. Both analyses re- 
quire that the temperature, the heat flux and the composition 
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of the pyrolysis gases be specified. Unfortunately, as was 
said in Chapter III, the current state of the art precludes 
prediction of the composition of the pyrolysis products from 
a known combination of plastic composites and therefore it 
was necessary to specify the pyrolysis gas composition. The 
boundary conditions selected are written in Equation (3-27) . 

Once the energy equation is solved, the momentum equa- 
tion is solved by specifying the front surface pressure. 
Because the pressure drop is small (r*/15 lbs/ft 2 ) , compared 
to the total pressure (r^ 2160 lbs/ft 2 ), the assumption of 
constant pressure in the solution of the energy equation can 
be considered valid and the equations can be uncoupled. In 
both analyses the surface recession velocity is specified 
and the mass flux of pyrolysis gases is calculated from 
Equation (3-1) . Furthermore, the analyses do not require 
the arbitrary specification of a char thickness, which is 
calculated. 

The ABLATIN1 System 

This analysis provides the lower and upper limits of 
the total energy transfer in the combined decomposition-char 
zone by considering the pyrolysis gases to be in frozen, or 
in chemical equilibrium. This analysis consists of a MAIN 
program and eleven subroutines. Two of these subroutines are 
major subroutines in the sense that they control the flow of 
information to other minor subroutines. A hierarchical 
diagram of this is shown in Figure A-l. The two major sub- 
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Figure A-l. 


MAIN 


Hierarchical System 
Diagram of ABLA5IN1 


f INDPTH 
CPMIX 
INTRPL 


f PHMCR 
J NYLON 
I DNSITY 


CHARPR 

CHEMEQ 


FRNRGY 

THERM1 

MATINV 



342 


routines are INDPTH and CHEMEQ and their functions are 
explained below. The MAIN program has direct access to three 
other subroutines , which are, CPMIX, INTRPL, and CHARPR. An 
explanation of each subroutine follows next. 

INDPTH : This is one of the two major subroutines. In 

it the physical properties of the virgin material as a func- 
tion of temperature are calculated. The thermal conductivity 
gradient is likewise calculated in this subroutine for use 
in the general energy equation. In addition, the energy 
absorbed (BTU/FT^-sec) due to the degradation of the plastic 
composites is calculated using the information generated by 
three minor subroutines, which are: PHMCR, NYLON, and 

DNSITY. The functions of each one of these subroutines are 
subsequently explained. 

PHMCR : In this subroutine the heat absorbed by the 

degradation of phenolic resin and phenolic-microballoons is 
calculated based on the data of Sykes and Nelson (1) . The 
heat term has the units of BTU/lb of each composite. 

NYLON : Similar in nature to PHMCR, this subroutine 

calculates the heat absorbed (in BTU/lb) due to the degrada- 
tion of nylon based also on the data of Sykes and Nelson (1) . 

DNSITY : This subroutine calculates the rate of density 

change of each individual composite (i.e., nylon, phenolic 
and phenolic-microballoons) , which provides the information 
required to compute the mass flux of pyrolysis gases. In 
addition, this subroutine is used to control the Runge-Kutta 
step size while the solution of the energy equation is 
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marching through the decomposition zone. The density 
changed (in lbs/ft^-sec) calculated in this subroutine along 
with the heat (in BTU/lb) calculated in PHMCR and NYLON are 

3 

used to generate the q(T) term (in BTU/ft -sec) in the 
general energy equation. (See Equation (3-20) ) . The calcu- 
lation of q(T) is performed in subroutine INDPTH. 

The first four subroutines just described, PHMCR, NYLON, 
INDPTH, and DNSITY, constitute the principal subroutines used 
in describing the physico-chemical changes of the decomposi- 
tion of nylon-phenolic resin composites. These four 
subroutines are used when the numerical solution is marching 
along the decomposition zone. When the decomposition of the 
virgin material is complete, that is, the virgin material 
has degraded to gases and char residue, the program has two 
options. One is to describe the gases with a frozen flow 
chemistry, in which case the composition of the gases stay 
constant with temperature, or, to describe the gases with an 
equilibrium chemistry, in which case the composition of the 
gases change with temperature and are computed from thermo- 
dynamic principles. Both options are explained below. 

Frozen Flow Analyses : Under this option the energy 

equation is solved assuming that there are no chemical 
reactions taking place in the char zone and hence the chemi- 
cal composition of the gas mixture does not change. This 
method of analysis gives the lower bound of the energy ab- 
sorbed within the char zone. It is the simplest, in terms of 
numerical solution and the fastest to solve on a machine. 
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requiring about one minute on an IBM 360/65 computer. Under 
this option two subroutines are called, these are: CPMIX 

and CHARPR. An explanation of their functions follows. 

CPMIX : This subroutine is called by MAIN to calculate 

the average heat capacity of a frozen flow mixture. This 
subroutine is called at every new temperature generated by 
the Runge-Kutta analysis. The heat capacity of each indivi- 
dual specie is generated by an empirical fit which is read 
in by MAIN. The thermodynamic data used is given in Appendix 
C. 

CHARPR : The data of Southern Research Institute (2) is 

used in this subroutine to generate the thermal conductivity, 
the thermal conductivity gradient and the heat capacity of 
the char as a function of temperature. Unlike CPMIX, this 
subroutine is also used by the chemical equilibrium analysis 
option. The actual data used is presented in Appendix C. 

Equilibrium Flow Analysis : This analysis is the second 

option of the ABLATIN1 system to describe the chemistry in 
the char zone. The primary difference with the frozen flow 
analysis is that the equilibrium analysis accounts for con- 
centration changes due to chemical reactions, which are as- 
sumed to be in thermodynamic equilibrium. A free energy 
minimization technique is used to compute the equilibrium 
composition as a function of temperature. This technique was 
developed in Chapter IV and the reader is referred to this 
Chapter for further details. The Equilibrium Flow Analysis 
uses in addition to CHARPR, five other subroutines which are: 
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CHEMEQ, which minimizes the free energy; FRNGY, which calcu- 
lates the free energy function to be minimized; MATINV 
which inverts the matrix and solves the simultaneous linear 
equations; THERM1, whose primary function is to calculate 
the heats of formation of the chemical species; and INTRPL 
which is used to interpolate the values generated by CHEMEQ 
and which are needed for the solution of the general energy 
equation. A more complete explanation of the functions of 
each subroutine follows next. 

CHEMEQ : This is the other major subroutine. This sub- 

routine is called by MAIN when the marching procedure is in 
the char zone. In this subprogram the equilibrium composi- 
tion of a multi-component, polyphase system is calculated 
using free energy minimization technique, which has been 
explained in Chapter IV. This subroutine is called once 
throughout the analysis. The equilibrium compositions of 
each individual species are computed and stored as functions 
of temperature. In addition, the mass flux, the average mo- 
lecular weight, the average heat capacity of the mixture and 
the heat absorbed due to chemical reactions are also stored 
as functions of temperature. All of these stored values are 
later used to generate interpolated values needed in the 
solution of the general energy equation. 

To verify the calculations made by this program, several 
literature examples were used for comparison and the reader 
is referred to Chapter IV for these comparisons. 

FRNRGY : This subroutine supplies the free energy func- 
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tion to be minimized by CHEMEQo This subroutine is called at 
every temperature at which an equilibrium composition calcu- 
lation is performed. In addition, the heat capacity of each 
individual species is also calculated. 

MATINV: This subroutine is a standard method for 

solving a set of linear equations by inverting a non-singular 
nxn matrix. The inversion is performed iteratively by 
reducing the original matrix to an identity matrix by a 
series of row operations. The method is then repeated with 
the resulting identity matrix. The IBM Share Library is the 
source for this particular program (3) . The simultaneous 
solution of the linear equations (see Table 4-1) gives the 
Lagrange multipliers which are used to generate the new 
composition of the gases for the next iteration (see Equation 
(4-32)). In addition, when there are solid species, the 
solution of the linearized equations (see Table 4-1) results 
in the explicit computation of the number of moles of these 
species directly. This is not the case for the gas species. 

THERMl : The calculation of the heat of formation and 

the entropy of each chemical species is performed in this 
subroutine. This subroutine is called by CHEMEQ after the 
species compositions are calculated. The reference tempera- 
ture used in the calculations is 298.16°K. 

INTRPL ; This is a general purpose Lagrangian interpola- 
tion subprogram with non-equal step size between points. 

This subprogram is used by MAIN to interpolate the stored 
values generated by CHEMEQ. In addition, INTRPL is used in 
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the solution of the uncoupled momentum equation to inter- 
polate values generated during the solution of the energy 
equation . 

The five subroutines just mentioned in addition to 
CHARPR, constitute the principal subroutines used in des- 
cribing the physico-chemical changes which occur within the 
char zone. 

Next a brief description of MAIN (the main program) 
follows. In it the calling sequence of the subroutines for 
the chemical equilibrium analysis option and the frozen flow 
analysis are explained. 

MAIN : The main program solves the energy equation by 

using a Runge-Kutta formulae of the form developed in 
Chapter III. MAIN is assisted in the solution of the energy 
equation by ten subroutines for the equilibrium analysis, 
and by two subroutines for frozen flow analysis. As was 
explained, CHARPR is used by both analyses, so that the to- 
tal number of subroutines is eleven. A block flow diagram 
of the main program for the chemical equilibrium option is 
shown in Figure A-2 . After the data is read in and 
variables are initialized MAIN proceeds to call subroutine 
INDPTH to generate the physico-chemical properties for the 
decomposition process. INDPTH interacts with PHMCR, NYLON 
and DNSITY to obtain the mass flux, heat of reaction and 
other variables as was previously explained. Once these 
properties have been calculated MAIN proceeds to calculate 
the next temperature point in the Runge-Kutta analysis. 



Figure A-2. Block Flow Diagram of the ABLATIN1 Program. 
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This operation is repeated until the virgin material has been 
totally degraded to gases and char. At this instance MAIN 
calls CHEMEQ to generate the equilibrium composition of the 
reacting gases, along with other needed information such as: 
mass flux of the gases, average molecular weight, the 
average heat capacity of the mixture and the heat absorbed 
due to chemical reactions. Unlike subroutine INDPTH, which 
was called at every new temperature, subroutine CHEMEQ is 
called only once. This can be done because the equilibrium 
composition is only a function of temperature and pressure. 
Pressure is assumed constant through the analysis, and the 
equilibrium composition, the mass flux, the average molecu- 
lar weight, the average heat capacity of the mixture and the 
heat absorbed due to chemical reactions are stored as func- 
tions of temperature. Since every new temperature generated 
by the Runge-Kutta analysis does not coincide with the 
temperature of the stored information, an interpolation 
scheme is necessary to generate these values at these inter- 
mediate temperatures. This interpolation function is 
performed by subroutine INTRPL. It was found by this author 
that storing the equilibrium composition every 10°K was 
sufficient to give accurate interpolated values at inter- 
mediate temperature points. After the interpolation is 
performed CHARPR is called to generate the physical proper- 
ties for the char. A new temperature is then generated and 
the procedure is repeated until the temperature of the char 
reaches the sublimation temperature of carbon at the given 
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pressure. 

For frozen flow the numerical solution while in the 
decomposition zone is the same. When the marching solution 
enters the char the primary difference is that CHEMEQ and 
INTRPL subroutines are bypassed. Instead, MAIN calls CPMIX 
to generate the heat capacity of the frozen flow mixture and 
then proceeds to call CHARPR for the physical properties of 
the char. A new temperature is generated as in the equili- 
brium case and the process is repeated until the temperature 
of the char reaches the sublimation temperature of carbon 
at the given pressure. 

Once the temperature profile is established, i.e., the 
energy equation has been solved, the program proceeds to cal- 
culate the pressure profile. More is said about the pressure 
calculations after the description of the ABLATIN2 System 
which follows below. 

The ABLATIN2 System 

This analysis is programmed exclusively for non-equili- 
brium flow chemistry where the rate of reaction of each 
species is described by finite rate chemistry. Compared to 
the chemical equilibrium analysis, the non-equilibrium flow 
analysis is easy to program. It takes three DO LOOPS and 
about 20 FORTRAN statements to calculate the rate of reaction 
of a chemical species which is simultaneously reacting in 
more than one chemical reaction. 

The computing time for the non-equilibrium analysis 
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however, exceeds that of chemical equilibrium by a factor 
of about 10. As was explained in Chapter V, this is due in 
part to the stiffness of the general energy equation caused 
by very fast chemical reactions taking place in the flow 
field. This stiffness requires that the step size be of the 
order of 10" 7 to 10“® feet to maintain numerical stability. 
Because the step size was so small many operations had to be 
made double precision to reduce round-off error. Operations 
in double precision arithmetic also increased the computing 
time . 

In comparing Figure A-l and Figure A-3 it is seen that 
the ABLATINl and ABLATIN2 systems use the same subroutines 
to describe the decomposition process. These subroutines 
are: INDPTH, PHMCR, NYLON and DNSITY. In addition, CHARPR 

and INTRPL and the four previously mentioned subroutines 
perform the same functions in both the ABLATINl and ABLATIN2 
systems and will not be described again. 

Non-Equilibrium Flow Analysis : The primary difference 

i 

between the equilibrium and non-equilibrium flow analyses is 
the way the rate of production of chemical species is com- 
puted. In the chemical equilibrium analysis the rate of 
production of species, is computed from thermodynamic princi- 
ples, while for non-equilibrium, finite rate chemistry is 
used. The rate of reaction of each species is computed by 
subroutine KINET. In the non-equilibrium flow analysis, 
changes in the mole flux of each species with temperature 
must be calculated as part of the Runge-Kutta analysis. That 
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is, for each temperature generated in the Runge-Kutta 
analysis, a corresponding set of concentrations must be cal- 
culated. This requires that KINET be called by MAIN at every 
new increment of temperature. This is necessary because the 
concentration changes are not only functions of temperature 
and pressure, but of composition as well. KINET in addition 
calls two other subroutines, INPUT! and THERM2 and their 
functions are subsequently explained. 

KINET : This subprogram is the counterpart of CHEMEQ . 

In it the reaction rate of each species is computed using 
finite rate data read in by INPUT1. The mole fraction, the 
total mass flux, the average molecular weight, the heat ca- 
pacity of the mixture and the heat absorbed due to chemical 
reactions are also computed and stored for later use in the 
calculations. In addition, this subroutine controls the 
step size of the Runge-Kutta analysis to maintain stability. 
For the CHEMEQ analysis the step size needed to maintain sta- 
bility is of the order of 10”^ to 10~ 5 feet, while for KINET 
a step size of the order of 10”^ to 10“8 feet is necessary to 
maintain stability in regions where rapid chemical changes 
are occurring. 

INPUT 1 : This subroutine reads in the kinetic data 

needed to compute finite rate chemistry. 

THERM2 : This subprogram is similar to THERM1 with the 

difference that the heat capacity of each species is calcula- 
ted in addition to the heats of formation. This subprogram is 
called by KINET at every temperature. 
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MAIN : The main program of ABLATIN2 performs very 

similar operations as that for the A3LATIN1 system. In 
Figure A- 4 a block flow diagram of the ABLATIN2 system is 
given. The principal difference is that in ABLATIN1, MAIN 
calls CHEMEQ to generate the compositions of the species 
while in this case KINET is called by MAIN. The rest of the 
computations are the same as has been explained before. 

Calculation of the Pressure Distribution 

The pressure distribution through the char zone is 
calculated by integrating Equation (3-13) using a Simpson's 
rule integration. Since it was shown in Chapter III that 
this equation could be uncoupled from the energy equation, 
its solution is calculated after the temperature distribution 
is known. Therefore, the integration method for this momen- 
tum equation is the same for both the ABLATINl and ABLATIN2 
system. Interpolation using subprogram INTRPL of both char 
distance and collision integral as a function of the tempe- 
rature distribution across the char is required. These 
operations allow the calculation of the gas mixture viscocity 
as a function of char distance. The pressure calculation 
scheme used in this research was developed by April (4) . 

Simpson's Rule Integration Step : As discussed in 

Chapter III, the Simpson's Rule formula is used to integrate 
the pressure equation. Equation (3-13) . As with the Runge- 
Kutta analysis it is necessary to select a step size that 
gives a fast, yet accurate solution to the equation. April 




Figure A— 4* Block Flow Diagram of the ABLATIN Program. 
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(4) made a study of several interval sizes and his results 
are presented in Table A-l. As noted in this table, April 
(4) found that the solution of the momentum equation becomes 
stable with twenty integration steps. 

Summary 

In this appendix an introduction to the ABLATIN1 and 
ABLATIN2 systems was given. The ABLATXN1 system was deve- 
loped to compute the total energy absorbed in the combined 
decomposition-char zone for a frozen and equilibrium flow 
model. These two analyses gave the lower and upper limits 
of the energy absorbed within the combined zones. The 
ABLATIN2 analysis was developed exclusively for non-equili- 
brium flow chemistry. This analysis was said to be more 
time consuming on a computing machine, although it is simpler 
to program than the other two models. The various functions 
of each subprogram was explained in detail and block flow 
diagrams for both the ABLATIN1 and ABLATIN2 systems were 
given. Finally, a brief explanation on the solution of the 
pressure equation by MAIN, was given. 

In Appendix B a complete listing of the ABLATIN1 and 
ABLATIN2 systems is presented along with typical input and 
output data for the frozen, equilibrium and non-equilibrium 
flow chemistry. 



TABLE A-l: Comparison of Various Simpson's Rule Increment 

Sizes for the Frozen Flow, Variable Physical 
Properties Analysis After April (4) . 


Dimensionless 
Char Distance 
(Z/L) 

0.00 

0.33 

0.67 

1.00 


20 

2175.5921 

2173.4147 

2168.7373 

2160.0000 


Pressure (lb/ft^) 


Simpson's Rule 
50 

2175.5918 

2173.4144 

2168.7368 

2160.0000 


Increment Size 
100 

2175.5913 

2173.4139 

2168.7364 

2160.0000 


200 

2175.5912 

2173.4138 

2168.7364 

2160.0000 


Conditions: W = 0.05 lb/ft^-sec L= 0.0208 ft 

Gas Composition (Mole/Mole Gas) : 

CO = 0.245, C0 2 = 0.046, N 2 = 0.073, CH 4 


£ = 0.8 

0.570, C 6 H 6 = 0.068 
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APPENDIX B 


THE ABLATIN1 AND ABLATIN2 ANALYSES 

As discussed in Appendix A, the ABLATIN1 and ABLATIN2 
programs are general analyses implemented in FORTRAN IV for 
studying the energy transfer in the decomposition zone and 
char zone of char forming ablators. The ABLATIN1 analysis 
was said to consider the pyrolysis gases to be either fro- 
zen, or in chemical equilibrium. The ABLATIN2 analysis on 
the other hand, considers the gases to be in chemical 
non -equi 1 ibr ium . 

As was shown in Appendix A a great degree of overlap 
exists in the many common subroutines used by the two ana- 
lyses. The rationale, however, for keeping the ABLATIN1 
and ABLATIN2 analyses as separate programs was due to core 
restrictions. There were, in addition, other practical 
considerations regarding input-output which made the se- 
parate development of these programs more practical. 

A listing of the ABLATINl program with all the subrou- 
tines is presented in Table B-l. An explanation of the 
function of each subroutine has been given in Appendix A. 

Most of the subroutines are self-explanatory with most of the 
major functions explained through comment cards. The degree 
of modularity of this program makes it highly flexible, and 
subject to easy modification in the future. For this reason 
the author has provided an extensive nomenclature of every 
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important variable in the program. This was done in the 
hope of minimizing errors incurred in modifying any subrou- 
tine. Furthermore, the listing allows easy cross referencing 
of variables among subroutines, which will further reduce the 
possibility of errors. 

Communication among subroutines is mostly done by means 
of labeled common blocks, thus minimizing communication 
through arguments of a call. This was done to reduce compu- 
ter time among frequently called subroutines. However, this 
method of structuring communication can be very error prone 
and was an additional motivation for providing a nomenclature 
listing of every important variable. In this way any modifi- 
cation of a variable can be cross checked in the nomenclature 
listing of every subroutine. A detailed explanation of the 
input format is also given in this Appendix. 

Following the listing and explanation of input format 
for the ABLATIN1 program, is the listing of ABLATIN2 . The 
ABLATIN2 is listed in Table B-4. In both cases, typical 
input data and output results are listed. 



non oooooooooo 


TABLE B-l. Listing of ABLATIN1 Program 


INDEPTH RESPONSE OF AN ABLATIVE COMPOSITE 

EQUILIBRIUM ANALYSIS. 

ABLATIN I SYSTEM 


COMMON/KA/SK 6) , S2 ( 6) , S3( 6 ) , S4 ( 6 ) , S 5 ( 6) , S6 ( 6 ) , Al 1 (6 ) , 
1A22I 6),A33( 61 ,A44(6) ,A55(6) , A66 ( 6 I , AA (30 ,6 1 * JCODE (6 ) 
COMMON /KB/ A I ( 30 ) ,BI (30) , C I ( 30 ) , D I (30 ) ,E I ( 30 ) , F I ( 30 ) , 
1GI(30),AII(30),BI I (30), Cl 1(30 ),0I 1(30) ,EI 1(30), 

2FII( 30) ,GII(30) ♦ TL0W( 30 ) 

COMMON/KC /I CODE ( 30 ) *Y ( 30 ) , FW ( 30 ) 

CQMMON/KCC / SPC I E I ( 30 ) , SPCI 62 ( 30 ) tTABLE ( 353 ,25 ) 

COMMON/KE /XTKE( 100) ,ZOMG A ( 100 ) , EK ( 100 ) , S I G I 100 ) 

COMMON /KEE/PL ,R R , TZERO , EPS , KEY, NN, NQ, MM 

COMMON/KI / W , KMA X , KOUNT 

COMMON /K J /OEL TK , T VA R 

COM MON /KF /C PS ,CDO »DCOO , JCHAR , TC 

COMMON /KK /I P 

COMMON/KL /WTOTAL * RHOI I 

C0MM0N/KM/XM0H30) 

COMMON/KNN/TFMAX 


DIMENSION TOK ( 200 ) ,CHARDN(2Q0 ) , Z1 (200), T1 (200), ZX (4 1 ),ZY( 41), 
l TP (41) ,P(4L),WFLUX(4l),TT(21),PR0D(21)» 

2YC0MP ( 30,41) ,PROOCP( 21) ,PR0DR(21) ,C0N0(30 ) ,CV ( 30 ) , 

3V I S ( 30) ,YI( 30) 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 £ 

33 

34 



nooooono oonno noooonoo noooooo 


C 35 

DOUBLE PRECISION ZZ ,H1 I , ZLL , TTTT » DTCC 36 

37 

38 

39 

DEFINE THE ARITHMETIC STATEMENT FUNCTIONS FOR THE AO 

RUNGE-KUTTA ANALYSIS. A1 

42 
A3 

F( A) =+GROUP*A 44 

G( A l=A 45 

A 6 
47 
A 8 
A9 

RR=GAS CONSTANT ( 1 • 987268TU/ ( LB— MOLE ORt 50 

TZERO= REFERENCE TEMPERATURE 51 

TFMAX=MAXI MUM ALLOWABLE TEMPERATURE FOR THIS MODEL (OF) 52 

53 

RR= 1.98726 54 

55 

56 

HSIMPI=SIMP SON'S RULE INCREMENT SIZE(FT) USED 57 

IN THE SOLUTION OF THE MOMENTUM EQUATION 58 

59 

FR2=778. 16/32.2 60 

61 
62 

NC = N 0 • OF GAS SPECIES 63 

NNS=NO. OF LIQUID OR SOLID SPECIES 64 

NS=NC+NNS( TOTAL NUMBER OF SPECIES) 65 

MM=NO. OF ELEMENTS 66 

KODE= 1 CONDUCTIVITY OF CHAR WITH GAS IN PORES 67 

K0DE=2 CONDUCTIVITY OF CHAR WITH PORES EVACUATED 68 
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KEY=1( FROZEN) ,=2 ( EQUI LI BRIUM) =3 ( NON-E GU I L I BR IUM ) 69 

PL= PRE SSUR E AT Z=L(L8/FT2) 70 

OELTK= TEMPERATURE INCREMENT 71 

TO= TEMPERATURE AT Z=0 72 

6PS=CHAR POROSITY 73 

ZL=ABLATQR THICHKNESSUN FEET) 74 

H 1= I NI T I AL RUNGF-KUTTA INCREMENT SIZE(FT) USED 75 

IN THE SOLUTION OF THE ENERGY EQUATION. 76 

ALPHA=VI SCOUS COEFFICIENT IN DARCY'S EQUATIONC I/FT ) 77 

BETA=INERTIAL COEFFICIENT IN DARCY'S EQUAT IONI 1/ FT 2 I 78 

SIGMA= STEPHAN-BOLTZMAN CONSTANT I 0 . 48 1 XI 0-1 2 BTU/FT2-SEC-0F4) 79 

EMI S=CHAR EMI SI VI TY. 80 

QFLUXI=INI TIAL BACK SURFACE HEAT FLUX. 81 

TCHAR=BACK SURFACF TEMPERATURE OF CHAR 82 

83 
8A 

FR=0. 1666667 85 

86 
87 

READ INPUT PARAMETERS 88 

89 

90 

10 READll»NC»NNSfMM» KODE »KEY 91 

11 FORM ATI 616) 92 

12 F0RMATIF10.3, 10X.5F10.3) 93 

READ 12,PLtT0.EPS,ZL,HI,TFMAX 94 

READ21, ALPHA, RFTA, SIGMA.EMIS 95 

REA013,DTC ,TCHAR ,VR 96 

13 FORMAT! 7E10. 3 ) 97 

NN=NC 98 

NS=NC+NNS 99 

NQ=N S 100 

QFLUX=QFLUXI 101 

C 102 
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C SI. ,.S6( APPLY BETWEEN 1000-6000 OK) 104 

C A11...A66IAPPLY BETWEEN 300-1000 OK) 105 

C JCODE( J 1=0 THE REFERENCE ELEMENT IS IN THE GAS STATE. 106 

C JCOOE ( J )= 1 THE REFERENCE ELEMENT IS IN THE SOLIO STATE. 107 

C A I . . .E I ( HEAT CAPACITY CONSTANTS. .. 1000-6000 OK) 108 

C FI* GII NEEDED TO CALCULATE THE ENTHALPY, ENTROPY 109 

C AND FREE ENERGY .... 1000-6000 OK) 110 

C All ...Gilt 300-1000 OK) 111 

C AA=FORMULA NUMBER. GIVES THE ATOMS OF ELEMENT J 11 2 

C IN SPECIE I. 113 

C 114 

C TLOW( I)=MINIMUM TEMPERATURE AT WHICH THE HIGH TEMPERATURE 115 

C FIT IS APPLICABLE. 116 

C FW(I)=MOLECULAR WEIGHT OF SPECIE I. 117 

C Y I ( I )= MOLE FRACTION OF SPECIE I. 118 

C SPCIE1 AND SPCIE2 ARE THE SPECIES IDENTIFICATION 119 

C ICODE ( I )=0 SPECIE IS A GAS 120 

C ICODE ( I )= 1 SPECIE IS A SOLID 121 

C 122 

C 123 

C 124 

C 125 

C READ EMPIRICAL CONSTANTS TO CALCULATE THE SENSIBLE 126 

C ENTHALPY CHANGE OF THE CONSTITUENT ELEMENTS. 127 

C 128 

C 129 

DO 9 J=l,MM 130 

READ 18,S1(J),S2(J) ,S3(J) ,S4< J) ,S5(J),S6(J) * JCODE ( J ) 131 

READ 18, All( J),A22( J ) , A33 { J) , A44 ( J ) , A55 ( J > , A66< J > 132 

9 CONTINUE 133 

00151=1, NS 134 

READ 14, TLOWCI ) ,FW ( I ) ,Y I ( I ) , SPC IEI ( I ) ,SPC IE2 ( I ) , ICODE ( I ) 135 

14 FORMAT! IQX,3E10. 3»2X,2A3,I4) 136 
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137 

138 

READ EMPIRICAL CONSTANTS TO CALCULATE THE HEAT 139 

CAPACITY OF THE SOLID PLUS TWO ADDITIONAL CONSTANTS 140 

TO CALCULATE THE ENTHALPY, THE ENTROPY AND THE FREE 141 

ENERGY OF THE SYSTEM 142 

143 

144 

READ13,AI( I),Bim,CI(I),DI(I),EI(I),Fim,GIII> 145 

READ 13, All I II ,BII ( 1 1 * Cl I (I), 01 1 ( II , EIKI ),FII< n,G!I( I) 146 

147 

148 

READ IN THE FORMULA NUMBERS 149 

150 

151 

15 READ13,(AA( I , J) ,J~1 ,MM) 152 

153 

154 

155 

E K= POTE NT I AL PARAMETER/BOLTZMAN CONSTANT. 156 

S I G=COLL I SI ON DIAMETER! ANGSTRONG UNITS). 157 

THESE CONSTANTS ARE USED TO DETERMINE THE 158 

VISCOCITY AND THERMAL CONDUCTIVITY OF THE 159 

REACTING GAS MIXTURE. 160 

161 

NDATA=NO. OF XTKE VS. ZOMGA DATA POINTS 162 

XTKE=PROOUCT OF TEMPERATURE AND 1/EK VALUE 163 

ZOMGA=CQLLI SION INTEGRAL TABULATED VS XTKE 164 

165 

166 
167 

READ16,(EK( l ) , SIG< I > ,1=1 ,NC) 168 

16 FORMAT! 2F15. 5) 169 

READllfNDATA 170 
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RE ADI 7, ( XTKEI I I » ZOMGA ( I I ,I=l,N0ATA| 171 

17 FORMAT ( 2F 1 5 • 5 1 172 

18 FORMAT (6E10.4.I3) 173 

21 F0RMATI3E15.5.F15.5I 174 

175 

176 

177 

INITIALIZATION OF PARAMETERS 178 

179 

180 
181 

N=C0UNT£R OF RUNGE KUTTA STEPS 182 

183 

N=1 184 

185 

T0= INITIAL TEMPERATURE OF BACK SURFACE(OF) 186 

IT IS A SPECIFIED BOUNDARY CONDITION. 187 

TC=T0 188 

189 

TC=I NSTANTANEOUS TEMPERATURE OF THE SYSTEM! OF ) 190 

191 

Kl=l 192 

193 

K 1=GIVES THE TOTAL NUMBER OF DATA POINTS STORED. 194 

SHOULD NOT EXCEED THE DIMENSION OF VARIABLES. 195 

196 

KOUNT=i 197 

198 

199 

KOUNT IS A CODE. IT IS USED TO DETERMINE WHETHER 200 

THE CHEMEQ SUBROUTINE SHOULD BE CALLED OR BYPASSED. 201 

THE LOGIC IN THIS PROGRAM IS SUCH THAT CHEMEQ IS 202 

CALLED ONLY ONCE. THIS IS POSSIBLE BECAUSE AT EQUILIBRIUM 203 

THE COMPOSITION IS ONLY A FUNCTION OF TEMPERATURE AND 204 
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PRESSURE AND NOT A FUNCTION OF RESIDENCE TIME AS IS IN 205 

THE KINETICS CASE. WHEN KGUNT=2 CHEMEQ IS BYPASSED. 206 

207 

R0CHAR= 13 . 208 

TZERO=298. 159 209 

K1=0 210 

l ND=0 211 

K 10=0 212 

DEL TFF=0 • 213 

214 

RE AC 1=0 . 215 

REAC 1=RATE OF HEAT ABSORBED BY THE CHEMICAL REACTIONS IN 216 

( BTU/FT**2-SEC) 217 

218 
219 

CPB 1=0 • 220 

CPBURATE OF HEAT ABSORBEO BY THE FLOWING GASES IN 221 

( BTU/FT**2-SEC) 222 

223 

224 

CPB 2=0 . 225 

CPB 2=RA TE OF HEAT ABSORBED 8Y THE SOL IDS < 8TU/FT**2-S EC ) 226 

227 

DCDOV=0. 228 

DCD0=0. 229 

DE LTK=0. 230 

231 

232 

NN5 GIVES THE NUMBER OF VARIABLES STORED IN T ABL E ( It J I • 233 

234 

235 

NN4 = NC + 5 236 

NN5= NN4 + NN S 237 

C 238 
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239 
2 AO 

THE FIRST FIVE VARIABLES ARE..... 2A1 

2A2 
2 A3 

II THE TEMPERATUREIIN OK) 2AA 

3) THE AVERAGE MOLECULAR WEIGHT 2A5 

A) THE MASS FLUX! L8S/FT2-SEC ) 2 A6 

2) THE HEAT TERM! UNITS? ) 2A7 

5) THE HEAT CAPACITY OF THE MIXTUREICPMX ) 2A8 

6) THE REST OF THE VARIABLES ARE THE MOLE 2A9 

FRACTIONS. FOR THE SOLIDS, THE TERM STORED 250 

IS THE RATIO OF MOLES OF SOLID TO MOLE OF 251 

GASES. 252 

253 
2 5A 

HI=INITIAL RUNGE-KUTTA STEP SIZE 255 

H=HI 256 

257 

258 

259 

CALCULATE THE INITIAL AVERAGE MOLECULAR WEIGHT OF THE GAS 260 

261 
262 
263 

SUMY=0. 26A 

DO l 1=1, NN 265 

1 SUMY=SUMY+YI (I) 266 

A VGF W=0 • 267 

DQ31 1=1 , NS 268 

XMOLU)=YI (I) /SUMY 269 

YII)=YMII 270 

IF C ICODE(I) .E0.1JGOT031 271 

AVGFW=AVGFW + Y(I)*FWm 272 
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31 . .CONTINUE 273 

2 74 
275 

.'W-MA SS FLUX(LBS/FT**2( TOTAL! -SEC ) 276 

W— WI 277 

278 

279 

THE UNITS OF MASS FLUX FOR THE PRESSURE PROFILE ARE: 280 

(LBS/ FT** 2 (VO I OS )— SEC 1 281 

282 

283 

284 

Z=0. 285 

Z=DI STANCE IN FEET 286 

ZL=THICKNESS OF CHAR IN INCHES 287 

Z INC= INCREMENTS OF DISTANCE AT WHICH VARIABLES 288 

SHOULD BE STORED. 289 

290 

291 

Z2=0. 292 

Z 2= V AR I ABLE USED TO COMPARE WHETHER THE DISTANCE 293 

AT WHICH VARIABLES ARE STORED HAS BEEN REACHED. 294 

295 

296 

TVAR=(TC+459.69) /l. 8 297 

TVAR=TEMPERATURE IN OK. 298 

299 

ZZ=Q. 300 

ZLL=ZL/12. 301 

PRINT 5 l , ZLL »H 302 

51 FORMAT! IX, 'ZLL='020. 10,' H=*E15.7) 303 

304 

305 

306 
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INOEPTH RESPONSE OF ABLATIVE COMPOSITES. 307 

FOR BACK SURFACE TEMPERATURE ANO HEAT 308 

FLUX SPECIFIED. THE EQUATION OF ENERGY 309 

IS A SECOND ORDER, NON-LINEAR, ORDINARY DIFFERENTIAL 310 

EQUATION WITH VARIA8LE COEFFICIENTS. 311 

THE NUMERICAL TECHNIQUE USED IS A 4TH ORDER 312 

VARIABLE STEP RUNGE-KUTTA ANALYSIS. 313 

314 

315 

316 

317 

TCHAR= TEMPERATURE AT WHICH ALL OF THE VIRGIN 318 

MATERIAL HAS DECOMPOSED. 319 

320 

Z I NC= l • 2E- 5 321 

ZINC=2.2E-4 322 

DELZ =H 323 

HI 1=H 324 

IF( TVAR.GT.TCHAR )G0T032 325 

326 

327 

CALL INDPTH(TC,CDOV,DCDOV,GASCP f Q,CPV,RH0,TVAR, 328 

1DELTK,N,0ELZ,VR,W,H> 329 

330 

331 

332 

CDOV=THERMAL CONDUCTIVITY OF VIRGIN MATERIAL I 333 

BTU/l FT- SEC -OF ) 334 

DC DO V=THE DERIVATIVE OF CDOV WITH TEMPERATURE ( BTU/ ( FT-2EC ) ) 335 

GASCP=HEAT CAPACITY OF MI XTURE < BTU/ LB-OF ) 336 

Q=HE AT ABSORBED BY DEPOLYMERIZATION OF THE 337 

VIRGIN PLASTIC C OMPO SI TE I BTU/ FT3-SEC ) 338 

CP V= HE AT CAPACITY OF VIRGIN COMPOS ITE ( BTU/L6-0F ) 339 

RHO=DENSITY OF VIRGIN COMPOSITE 340 
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DELTK= TEMPERATURE DIFFERENCE IN OK FOR A DISTANCE H. 341 

N=NUMBER OF INTEGRATION STEPS 342 

DELZ=INCREMENT OF D I STANCE ( FT ) 343 

VR= SURF ACE RECESSION VELOCI TV ( FT/SEC ) 344 

W=MA SS FLUXCLBS/FT2-SEC) 345 

H=RUNGE-KUTTA INTEGRATION STEP SIZEIFT) 346 

347 

348 

WI =W 349 

350 

QCZI=CDOV*DTC 351 

DTC I I=DTC 352 

PRINT 1390, OCZI 353 

1390 FORMAT! IX, *0CZ='F15. 51 354 

355 

356 

— CALCULATE THE HEAT CAPACITY OF THE PYROLYSIS GASES 357 

358 

359 

CALL CPMI X( TVAR ,NN,CPMX) 360 

GASCP=CPMX/AVGFW 361 

GO TO 1 13 362 

363 

364 

32 CALL CHA RPR 365 

366 

367 

368 

369 

THIS SUBROUTINE CALCULATES THE THERMO-PHYSICAL 370 

PROPERTIES OF THE CHAR 371 

372 

373 

374 


DELZ=H 
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Z1(1) = 0. 375 

T 1 ( 1 ) = TO 376 

ZLL=0. 0208333 377 

GOTO 103 378 

101 TVAR=(TC+459.69I/1.8 379 

IF! TVAR .GT . TCHAR )G0T0102 380 

CALL INDPTH(TC,CDOV,DCDOV,GASCP,Q,CPV,RHO,TVAR,DELTK, 381 

1N,DELZ»VR»W,H) 382 

383 

384 

FOR EXPLANATION OF THE VARIABLES IN THE ARGUMENT SEE 385 

PREVIOUS CALL INOPTH STATEMENT. 386 

387 

388 

389 

390 

— CALCULATE THE HEAT CAPACITY OF THE PYROLYSIS GASES 391 

392 

393 

CALL CPMI X(TVAR,NN,CPMX) 394 

GASCP=CPMX/AVGFW 395 

H 1 1=H 396 

WI=W 397 

ZLL=ZZ+0. 0208333 398 

PRINT 139,TC,TVAR,DTC,GASCP,DCD0V,CPV,Q,CD0V, ZZ 399 

139 FORMAT! IX, 'T='F9.4, • TK='F9.4,' DT='E11.4,' CP='F6.3,» DKE='E11.4, 400 

1* CPP='Ell.4,» Q= ’Ell. 4, * KE= 'Ell. 4,015.7) 401 

PRINT 1390, QCZI 402 

QCZ I=COOV*OTC 403 

G0T0113 404 

405 

406 

USE SUBROUTINE CHA RPR TO GENERATE NEEDED PHYSICAL PROPERTY 407 

DATA FOR THE CHAR ZONE ( HEAT CAPACITY OF THE CHAR AND THE 408 
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OVER ALL EFFECTIVE THERMAL CONDUCTIVITY OF THE GAS AND CHAR ) . 409 

410 

411 

102 CALL CHARPR 412 

IF ( IND.EQ.0)0TC=QCZl/CD0 413 

I ND= 1 414 

103 IF(KEY . EQ • 2 1 GOTO 104 415 

416 

417 

-CALCULATE THE HEAT CAPACITY OF A FROZEN FLOW MIXTURE 418 

419 

420 

CALL CPMIXITVAR , NN,C PMX) 421 

GASCP=CPMX/AVGFW 422 

423 

GOTOlll 424 

104 IF ( KOUNT «EQ. 2)GOTQ105 425 

CALL CHEMEQ 426 

GO TO 300 427 

428 

CHEMEO SUBROUTINE CALCULATES THE EQUILIBRIUM COMPOSITION 429 

OF THE REACTING GASES. IT ALSO CALCULATES THE HEAT ABSORBED 430 

OR RELEASE DUE TO THE CHEMICAL REACTION. IN ADDITION IT 431 

FURNISHES THE NEEDED AVERAGE MOLECULAR WEIGHT AND HEAT 432 

CAPACITY OF THE MIXTURE. 433 

434 

105 D01 10KL = 2» 5 435 

CALL OMEGA(TVAR,TABLE(i,l) ,TABLE<1,KL),KMAX,VARY) 436 

OMEGA IS AN INTERPOLATION ROUTINE. SEE BEGINNING 437 

OF PROGRAM FOR EXPLANATION OF VARIABLES STORED IN T ABL E( I , J > 438 

I I = KL-1 439 

GOTO! 106 , 107 , 108 , 109 ) ,1 1 440 

106 RE AC T=VAR Y 441 

C REACT=HEAT EFFECT DUE TO CHEMICAL REACTIONS. THIS 442 
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VARIABLE IS USE IN GROUP TERM BELOW. THE 443 

UNITS OF REACT AR E ( BTU/F T2-SEC-OF ) 444 

G0T0I10 445 

107 A VGF W=VAR Y 446 

A VGFW=A VERAGE MOLECULAR WEIGHT OF THE GAS MIXTURE. 447 

G0T0110 448 

108 W=VARY*EPS 449 

W=MASS FLUX! LB S/F T**2-T0T AL-S EC ) 450 

GOTO! 1 0 451 

109 CPMX=VARY 452 

CPM X=HE A T CAPACITY OF THE MI X TURE (BTU/LB-MOLE-OF ) 453 

GASCP=CPMX/A VGF W 454 

GASC P=HE AT CAPAC I TY ( BTU/LB-OF ) 455 

110 CONTINUE 456 

REAC1=RE AC1+REAC T*DELTFF 457 

CPB1=CP81+W*EPS*GASCP*0ELTFF 458 

CPB2=CPB2+CPS*RHO*VR*(l.-EPSI*DELTFF 459 

IFIKEY.GT. I )G0T0112 460 

111 R0CHAR=( WTOTAL-WI /VR 461 

CONVEG=W*GASCP 462 

CPB1=CPB1 ♦CONVEG*OELTFF 463 

CON VES=CPS*R OCHA R*VR 464 

CPB 2=C PB 2+CON VES*DELTFF 465 

GR0UP= (CONVEG+CONVE S-DCDO*DTC I /CDO 466 

467 

OCDO=OERI VATI VE OF COO WITH TEMPERATURE < BTU/FT-SEC-0F2 > 468 

CDQ=EFFECT I VE THERMAL CONDUCT l VI TY I BTU/FT-S EC-OF ) 469 

DTC=GRAl)IENT OF TEMPERATURE WITH 01 STANCE IOF/FT ) 470 

THE ABOVE GROUP TERM IS FOR FROZEN CONDITION 471 

472 

G0T0114 473 

474 

475 

CALCULATE THE BULK DENSITY OF THE CHAR 476 
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477 

478 

112 ROCHAR=( WTOTAL-W) /VR 479 

ROCH AR=BULK DENSITY OF THE CHAR ( LBS/FT**3 > 480 

CONVEG=W*GASCP 481 

CPB1=CPBH-C0NVEG*DELTFF 482 

C0NVES=CPS*R0CHAR*VR 483 

CPB2=CPB2+C0NVES*DELTFF 484 

REAC1=REAC1+REACT*DELTFF 485 

GROUP=ICONVEG+CONVES+REACT-DCDO*DTC)/CDO 486 

487 

VR=SURF ACE RECESSION VELOC I TYI FT/SEC ) 488 

THE ABOVE GROUP TERM HOLDS FOR EQUILIBRIUM IN THE CHAR 489 

GOTO 114 490 

113 GR0UP=< W«‘GASCP+CPV*RHO*VR+Q/DTC-OCDOV*DTC)/CDOV 491 

492 

THE ABOVE GROUP TERM IS USEO DURING THE DEPOLYMERIZATION OF 493 

THE VIRGIN PLASTIC COMPOSITE. ► 494 

495 

114 A=DTC 496 

OELG 1=H*G ( A ) 497 

DELF 1=H*F I A ) 498 

DELG2=H*G(A+DELFl/2. ) 499 

DELF 2=H*F (A+DELF1/2. ) 500 

DELG3=H*G( A+DELF2/2. ) 501 

DELF3=H*F< A+DELF2/2.) 502 

0ELG4=H*G( A+DELF3) 503 

DELF4=H*F< A+DELF3I 504 

0TC=DTC*-(DELFU-2.*(0ELF2+DELF3l«-DELF4)/6. 505 

I F ( I NO . EQ. 0 ) GOTO 1 1 5 506 

QCZ=CDO*DTC 507 

115 TPR E V=TC 508 

IF(H.LT .Q.8F-8IG0TQ117 509 

TC=TC + < DELGl+2.*(DELG2+DELG3)+DELG4)/6. 510 


375 



o o o o 


117 


GOTO 118 511 

IF(KIO.EQ.O) TTTT=TC 512 

K 10= 1 513 

DTCC=DTC 514 

TTTT=TTTT+H11*DTCC 515 

TC=TTTT 516 

118 DEL TFF = TC-TPRE V 517 

DELTK=0ELTFF/1.8 518 

519 

-COMPARE THE TEMPERATURE CALCUALTED WITH THE MAXIMUM VALUE » 520 

521 

522 

138 ZPREV=ZZ 523 

ZZ=ZZ+H 11 524 

IFITC.GT. 1000 • ) H = 2« E-5 525 

IF ( KEY.EQ. 1)G0T0141 526 

IF(TC.GT.1500.)H=2.E-6 527 

IF( TC.GT.3000. lH=l.E-6 528 

IF( TC.GT.3500.)H=0.5E-6 , 529 

H 1 1=H 530 

Z=ZZ 531 

141 IF! TC.GT.TFMAX1GQT0150 532 

N=N+ 1 533 

IF! TVAR.LE.TCHAR»Z2=ZZ 534 

I F ( TVAR . LE . TCHAR I G0T0101 535 

IF(Z2.GT.ZZ)GOTO10l 536 

140 PRINT 142»TC»H,DTC»GASCP»DCD0,GR0UP» REACT , CDO 537 

142 FORMAT! IX, 'TF='F9.4,' H=*E14.6, • 0T=»E11.5,' CP=* F6.4,« DKE=*E11 538 

1.5,' GRP='E12.5, * Q='E11.4,' KE=*E11.5) 539 

PRINT 1140, AVGFW,W,CPMX, TVAR, KMAX, CPS, G ASCP » RHO, OCZ 540 

1140 FORMAT! IX, *AVGFW=*F 7.3,' W='F 7.5,' CPMX='E9.2,' TVAR=»F7.2, 541 

1" KM A X= * I 5 , * CPS='F 6.3,' GASCP='F 6.4,' RH0=*F8.4,* QCZ='F10.2) 542 

IF! TC.GT.2600.»ZINC=1.2E-5 543 

Z 2= Z 2+ ZINC 544 
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Z 1 ( K 1 ) = ZPRE V 545 

T 1( K 1 1 =T PRE V 546 

CHARON! K1 ) =ROCHAR 54? 

TOK!Ki)=TVAR 548 

549 

550 

STORE THE TEMPERATURE PROFILE FOR LATER USE IN THE SOLUTION 551 

OF THE MOMENTUM EQUATION. 552 

553 

554 

PRINT 153.REAC1 ,CPB1 ,CPB2,ZPREV,K1 555 

153 FORMAT! IX, »RE AC 1 = *E15 . 7 , » CPB 1= • E 15 . 7 , • CPB2=*E15.7, 556 

1* ZPREV=*E15.7, 15/) 557 

K1=K1+1 558 

IF!K1.GT.199)K1=199 559 

GO TO 101 560 

150 TL= TC 561 

C TL=F INAL TEMPERATURE 562 

PRINT 1140, AVGFW,W,CPMX,TVAR,KMAX, CPS, GASCP,RHO,QCZ 563 

PRINT 142, TC ,H,DTC,GASCP, DCDO, GROUP, REACT, COO 564 

PRINT 153, RE AC 1 »CPB1 ,CPB2,ZPREV,K1 565 

TKKi) = TL 566 

C THE TEMPERATURE PROFILE HAS BEEN DEFINED 567 

DELTT=TL-Tl(l) 568 

C 0 EL TT= TEMPERATURE OROP ACROSS THE CHAR(OF) 569 

Z 1 ( K 1 ) =ZZ 570 

CHARON! K1)=R0CHAR 571 

TOK! K1 ) = 1 TC+459. 69) /I . 8 572 

PRINT 154 573 

154 FORMAT! IH 1 , 7X,'T!0F)', 9X,«T(0K)», 1 IX , * Z» ) 574 

DO 156 1=1, K1 575 

PRINT 155, Till), T0K(I),Z1(I) 576 

155 FORMAT! IX,4E15.7) 577 

156 CONTINUE 578 
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D 1ST AN=Z 1 ( K 1 ) -Z 1 C 1 1 579 

0 1 STAN IS THE THICKNESS OF THE CHAR. 580 

5 81 

-CALCULATION OF THE PRESSURE PROFILE IN THE 582 

CHAR USING SIMPSON'S RULE FOR THE INTEGRATION 583 

OF THE MOMENTUM EQUATION FOLLOWS. 584 

585 

JS=39 586 

JS=NUM8ER OF SLICES IN THE CHAR 587 

HS=D ISTAN/FLOATIJS) 588 

HS= INC RE ME NT OF GRI D( IN FEET J 589 

-INITIALIZE 590 

SI MP1=0. 591 

S I MP2=0. 592 

I TE MP=K1 593 

I TEMP=TOTAL NUMBER OF TEMPERATURE POINTS STORED 594 

L S= J S+l 595 

WFL UX( 1 ) = WI 596 

ZX(LS) = ZKK1) 597 

TP ( L S) =TL 598 

P(LS)=PL 599 

600 

-THE INTEGRATION OF THE MOMENTUM EQUATION IS PERFORMED 601 

FROM THE FRONT SURFACE OF THE CHAR TO THE BACK SURFACE 602 

THE INTEGRATION OF THE ENERGY EQUATION. ON THE OTHER 603 

HAND. WAS PERFORMED FROM THE VIRGIN MATERIAL TO THE FRONT 604 

SURFACE OF THE CHAR. BECAUSE THE DIRECTION OF INTEGRATION 605 

OF BOTH EQUATIONS ARE DIFFERENT IT IS NECESSARY TO RE- 606 

DEFINE Z =0 . AT THE FRONT SURFACE OF THE CHAR. 607 

608 

AC0N1=2. 6693E-3 609 

ACON5=2. 42/3600. 610 

AC0N7 = 778. 16/32. 2 611 

M S= 20 612 
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HSIMPI=HS /FLOAT (MS) 613 
MP = M S+ 1 614 
D0260N=1,JS 615 
N0AR=N-1 616 
HN=NBAR 617 
LO=L S-NBAR 618 
ZX(LO)=ZX(LS)-HN*HS 619 
ZY(MP)=ZX(LO) 620 
DEFINE MP AS THE TOTAL NO. OF POINT OVER WHICH SIMPSONS'S 621 
RULE IS TO BE APPLIED 622 
D0241M=1,MP 623 
MBAR=M— 1 624 
HM=MBAR 625 
MO=MP-MBAR 626 
ZY( M0)=ZY(MP)-HM*HSIMP1 627 
ZVAR=ZY(MO) 628 
IF(ZVAR.LT.Z1( 1) )ZVAR=Zl(l) 629 

630 

-FOR A SPECIFIED CHAR DISTANCE OBTAIN THE 631 
CORRESPONDING TEMPERATURE FROM THE TEMPE- 632 
RATURE PROFILE 633 

634 

CALL OMEGA( ZVAR.Zl ,Tl .ITEMP.TVISI 635 
TV I S IS THE INTERPOLATED TEMPERATURE IN OF 636 
WHICH CORRESPONDS TO THE VALUE OF ZVAR 637 
TK= ( 459 . 6 9+ TV I S ) / 1 . 8 638 
TK= TEMPE RATURE IN KELVIN 639 
D0205I=i,NC 640 
TKE = TK/E K ( I I 641 

642 

643 

•FOR THE VALUE OF INTERPOLATED TEMPERATURE FIND 644 
THE CORRESPONDING COLLISION INTEGRAL TO CALCULATE 645 
THE PURE GAS VISCOCITY USING THE METHOD OF W IL K E- JO HNSON 646 
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C 647 

CALL OMEGA ( TKE#XTKE* ZOMGA* NDA TA » OMGA ) 648 

649 

OMGA=COLLI S ION INTEGRAL 650 

651 

205 VIS( I)=2.6693E-3*SQRT<FWU)*TK)/(SIGm**2*0MGA) 652 

IF(NC.EQ.1)G0T0237 653 

I F ( KEY .GT • 1 JG0T02C6 654 

VMI X=0. 655 

WFLUXI L0)=WI 656 

GO TO 222 657 

206 TVAR=TK 658 

DO 21 8KL=3»NN5 659 

660 

THE FIFTH VARIABLE STORED IN TABLE IS CPMX. THIS 661 

VARIABLE IS NOT USED IN THE SOLUTION OF THE MOMENTUM 662 

EQUATION. SO ITS INTERPOLATION IS BYPASSED. 663 

664 

IF(KL.EQ.5IG0T0218 665 

666 

INTERPOLATE FOR THE DATA GENERATED IN CHEMEQ 667 

668 

CALL OMEGA(TVAR t TABLE(l»ll ,TA8LE < 1 , KL I , K M AX , V ARY 1 ) 669 

IFIKL.GT. 5 IGOT021 6 670 

671 

KMA X=NUMB FR OF DATA POINTS STORED 672 

673 

I F ( KL.EO. 4) GOTO 21 5 674 

AVGFW=VARY1 675 

GOT 0 218 676 

215 W= V A R Y 1 677 

GO TO 21 7 678 

216 Y(KL-5)=VARY1 679 

IF ( VARY 1.GT.0. JG0T0217 680 
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Yl KL-5)=1.E-10 681 

217 IF( M.GT.l IG0T0218 682 

TP(LO)=TVIS 683 

WFLUXI LO ) = W 684 

KYCOMP=KL-5 685 

YCOMP(KYCOMP» LOI = Y( KYCOMP I 686 

218 CONTINUE 687 

VMIX=0. 688 

G0T0224 689 

222 IF(M .GT. DG0T0224 690 

DO 223 I =1 *NS 691 

YCOMPl I,LO»=XMOL(I) 692 

WFLUX(LO»=W 693 

223 TP(LO)=TVI S 694 

224 DO 236 J=1,NC 695 

TERM=1. 696 

D0230L=1,NC 697 

IFIL.EQ.J )G0T0230 698 

TQPV=( 1 • + SQR T(VISIJ)/VIS(L) ) *SQRT I SORT ( FW (L )/ FW ( J ) ))l**2 699 

BOTV= SORT (2.I*SQRT(1.+FW(JI/FW(L) ) *2. 700 

PHI V= TOP V /BO TV 7C1 

TERM=TERM+PHIV*(Y(L)/Y(J) ) 702 

230 CONTINUE 703 

VMIX=VMIX*VIS( J) /TERM 704 

236 CONTINUE 705 

G0T0238 706 

237 VISC0S=VIS( I)*AC0N5 707 

C AC0N5=2. 42/3600. 708 

G0T0239 709 

238 VI SCOS= VMI X*AC0N5 710 

239 PROO(MO)=TVIS*VISCOS*W/AVGFW 711 

TTI MO )-=TVI S/AVGFW*( W**2 ) 712 

241 CONTINUE 713 

Z X ( L 0— I ) = Z X ( L 0 ) — H S 714 
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C INTEGRATE USING SIMPSONS RULF 715 

SUM1=0. 716 

SUM2=Q. 717 

SUM3=0. 718 

SUM4=0. 719 

MODO=MP- 2 720 

D02 55KP =3 , MOOD , 2 721 

SUM1=SUM1+2.*PR0D(KP) 722 

255 SUM3=SUM3+2.*TT(KPI 723 

ME VF N=MP- 1 724 

D02 56KP = 2 » ME VEN » 2 725 

SUM2=SUM2+4.*PR00(KP) 726 

256 SUM4= SUM 4+4 • * TT ( KP ) 727 

SIMP1=( HSIMPI/3.0)*{PRQO(1)+SUM1+SUM24PROD(MPM+SIMP1 728 

SIMP2=(HSIMPI /3.0)*(TTI 1 ) 4SUM3+SUM4+TT I MP ) ) +S I MP2 729 

C FR2=778. 16/32.2 730 

PIL0-1 )=SQRT( PL**2+< 2.*RR) *FR2*< ALPHA*S I MP 1+ BET A*S IMP 2 ) ) 731 

260 CONTINUE 732 

733 

734 

CALCULATE THE SURFACE HF AT FLUX , QL » THE RERADI AT I ON, OR, 735 

AND THE TOTAL AERODYNAMIC HEATING, QA. 736 

737 

738 

I PIKEY.GT. I >G0T0261 739 

QL=QCZ 740 

GO TO 2 62 741 

261 QL=QCZ 742 

262 QR = E M r S* S I GMA TL+459.69) **4 743 

QA=OL+OR 744 

C 745 

T P ( 1I=T1( n 746 

C PRINT INPUT PARAMETERS 747 

C 748 
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2603 PRINT 597 749 

597 FORMAT! 1H1////////) 750 

IF(KEY.E0.2)G0T 05982 751 

PRINT 5981 752 

5981 FORMAT! 35X, UNDEPTH FLOW ANALYS I S < F RO ZEN FLOW)'//) 753 

5982 PRINT 5984 754 

5984 F0RMAT(35X» 'INDEPTH FLOW ANALYS I S < E QU I LI BRI UM FLOW!'//) 755 

5986 PRINT 5990 756 

5990 FORMAT! 12X,51H THEORETICAL/ 757 

1/) 758 

PRINT 60 0»T111),NC 759 

600 FORMAT! 18X, 'CHAR BACK TEMPERATURE ! OF )=' F7 . 1 , 13X ,' NUMBER OF GAS CO 760 

IMP0NENTS=' 13/) 761 

PRINT 601, DTCII ,RHOII 762 

601 FORMAT! 18X, • INITIAL SLOPE ! OF/FT ) = • F8 . 1 , 1 2X , • IN IT I AL DENSITY OF COM 763 

1P0SI TE ( L8S/FT*#3 )='F6.2/) 764 

THICK=DISTAN*12. 765 

THICK1=Z1! 1)*12. 766 

PRINT 602, THICK, THICK1 767 

602 FORMAT! 18X, 'THICKNESS OF CH AR!INCHES)=*F8 .6, 6X, 'THICKNESS OF DECOM 768 

IPO SI TI ON ZONE = ' F 8 . 6/ I 769 

QCZZ=QCZ-OCZI 770 

PRINT 604 ,WTOTAL,WFLUX(LSI 771 

604 FORMAT! 18X, 'TOTAL MASS FLUX < LBS/ FT2 -S EC) = • F7 . 6, 6X , 29HG AS MASS FLUX 772 

I AT THE SURFACE=,1X,F7.6/) 773 

PRINT 611, TFMA X , VR 774 

611 F0RMAT(18X, 'FRONT SURFACE TEMPERATURE !0F )=* F6. 1, 5X, • SURFACE RECESS 775 

I I ON VELOCI TY!FT/SEC) = 'F7.5/» 776 

PRINT 6 03 , QC Z Z , QC Z I 777 

603 FORMAT! 25X, 'RATE OF HEAT ABSORBED IN THE CHAR ZONE! BTU/FT**2-SEC )= 778 

l'F9.3,//25X, 'RATE OF HEAT ABSORBED IN THE DECOMPOSITION ZONEIBTIJ/F 779 

IT2-SEC=> »F9.3/> 780 

HCHAR=QCZZ/QCZ*100. 781 

HOECOM=QCZI /QCZ4100. 782 
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605 

606 

607 

608 
610 
586 


2602 

2662 

2650 

2651 


SUM=REAC1«-CPB1 + CPB2 783 

HGAS=CPBL/SUM*100. 784 

HSOL ID=CPB2/SUM*100. 785 

HREACT=REAC1/SUM*100. 786 

PRINT 605 » HCHAR 787 

FORMAT! 25X, 'PERCENT OF TOTAL HEAT ABSORBED IN THE CHAR Z0NE='E15.7 788 

l/) 789 

PRINT 606 »HDECOM 790 

FORMAT! 25X, 'PERCENT OF TOTAL HEAT ABSORBED IN DECOM P-ZONE=* E 1 5. 7/ ) 791 

PRINT 607 1 HGA S 792 

F0RMAT125X, 'PERCENT OF HEAT ABSORBED BY THE GAS IN THE CHAR ZONE=' 793 

IE15.7/) 794 

PRINT 608.HSOLID 795 

FORMAT(25X, 'PERCENT OF HEAT ABSORBED BY THE SOLIDS IN THE CHAR ZON 796 

1E-'E15«7/) 797 

PRINT 610*HREACT 798 

FORMAT! 25X, 'PERCENT OF HEAT ABSQRBEO BY REACTION IN THE CHAR ZONE= 799 

l'E15.7/> 800 

PRINT586 801 

FORMAT ( 1H 1 1 802 

803 

PRINT OUTPUT PARAMETERS CORRESPONDING TO JS, GRID SIZE 804 

805 

I KE= 1 806 

MI KE=5 807 

LIKE=1 808 

PRINT 597 809 

PRINT 5984 810 

IFILIKE.GT.UGO TO 265 811 

PRINT2650,DELTT 812 

FORMAT! 35X,23HTEMPERATURE DROP (OF) =»1X,F20.1/) 813 

DELP=( P ( 1 ) -PL ) 814 

PR INT2651 ,OELP 815 

FORMAT! 35X,24HPRESSURE DROP (LB/FT2) =,1X,F19.1/) 816 
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PRINT2652,QL 817 

2652 FORMAT ( 35X,33HSURFACE HEAT FLUX ! BTU/FT2-SEC ) =,lX,F10.2/> 818 

PR INT2653 #QR 819 

2653 F0RMAT!35X,32HRADIANT HEAT FLUX BTU /FT2-S EC ) = , IX , F 1 1 . 2/ ) 820 

PRI NT2654, QA 821 

265A FORMAT! 35X, 3 5HAE R00 YNAMI C HEAT FLUX ! B TU/FT2-S EC ) = , 1 X , F8 . 2// ) 8 22 

265 PRINT2720,!ZX!KK) , KK=I KE »MI KE ) 823 

2720 FORMAT ! 1AX, 1 5HCHAR DEPTH < FT ) ,6X * 5F 13 .4 ) 824 

PRINT2721,!TP<KK) , KK=I KE , MI KE ) 825 

2721 FORMAT! 14X, 16HTEMPERATURE ! OF ) , 5X ,5F13. 1 ) 826 

PRINT2730»(P(KKI * KK=I KE * Ml KE ) 827 

2730 FORMAT! 14X, 1 7HPRE SSURE ( LB/FT2 ) .4X.5F13. 1 ) 828 

PRINT2723,!WFLUX!KK) , KK= I KE , MI KE I 829 

2723 FORMAT! 14X,21HMASS FLUX ! LB/FT2-SECI ,5F1 3 .4/ ) 830 

PRINT272A 831 

272A FORMAT! 14X,66H GAS COMPONENT COMPOSITION 1 832 

1M0LE/M0LE GAS) /) 833 

IFIKEY.GT. DG0T02727 83A 

DO 2728 K IC K = 1 , L S 835 

D02728LL=1,NS 836 

YCOMP(LL»KICK) =Y I! LL ) 837 

2728 CONTINUE 838 

2727 D02729LL=l,NS 839 

YCOMP ! LL » 1 )=YI!LL) 8A0 

PRINT 2725,LL,SPCIE1!LL) , SPCl E2 ! LL ), (YCOMP! LL , KK ), KK= IKE, MIK E > 8A1 

2725 FORMAT! 1 2X , 12 ,2 X ,2 A3 , 1 IX ,5E 13 .4) 8A2 

2729 CONTINUE 8A3 

IF! MIKE.GE.LSJGO TO 2800 8AA 

L I KE = LI KE-*- 1 8A5 

MI KE =MI KE+ 5 846 

I KE= I KE + 5 8A7 

GO TO 2602 8A8 

2800 PRINT586 8A9 

300 STOP 850 
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851 
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SUBROUTINE I NDPTH ( TC ,CDOV , DCDOV * G ASCP , Q t CPV , RHO, TV AR, 
I OELTKK,N,DELZ,VR,W,H) 


DIMENSION DRH0DTI5) 

INDPTH SUBROUTINE CALCULATES THE PHYSICAL PROPER- 
TIES FOR THE VIRGIN MATERIAL AND PYROLYSIS GASES. 

T= TEMPERATURE IN FARENHE IT • 

I F ( N «GT . 1 ) G0T02 
DCOQV=. 338983E-8 
READ l »A f B»C»D»E 

A THROUGH E ARE CONSTANT FOR THE HEAT CAPACITY OF THE 
VIRGIN MATERIAL. 

1 FORMAT! 5E12. 6) 

CDOV=THERMAL CONDUCTIVITY OF THE VIRGIN MATERIAL 
( 8 TU / ! F T- SEC -OF ) ) 

2 CDOV=I. 266102E-5+.338983E-8*TC 
PRINT 1 0 »H » DE LZ 

10 FORMAT! IX, • IN INDPTH H=«E15.7,» DELZ= , E15.T) 

DCDQV=RATE OF CHANGE OF CDOV WITH THEMPERATURE. 

T=TC 

IF(T.GT.750. JG0T03 
T2=TC*T 
T3=TC*T2 
T4=TC*T3 

CP V=HEA T CAPACITY OF THE VIRGIN MATER IAL ! BTU/L8-0F I 
CPV=A+B*T+C*T2+0*T3+E*T4 

3 GA SC P = Q . 6 2 
C 

CALL PHMCR! T VAR , OEL TKK , OPHNLC , QM I CRO , N I 


INDP 

1 

INDP 

2 

INDP 

3 

INDP 

4 

INDP 

5 

INDP 

6 

INDP 

7 

INDP 

8 

INDP 

9 

INDP 

10 

INOP 

11 

INDP 

12 

INDP 

13 

INDP 

14 

INDP 

15 

INDP 

16 

INDP 

17 

INDP 

18 

INDP 

19 

INDP 

20 

INDP 

21 

INDP 

22 

INDP 

23 

INDP 

24 

INDP 

25 

INDP 

26 

INDP 

27 

INOP 

28 

INDP 

29 

INDP 

30 

INDP 

31 

INDP 

32 

INDP 

33 

INDP 

34 
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IFLTVAR.GE.789. IG0T0200 
C 

CALL NYLON ( T VAR » DE LT KK » QNYLON ) 

G0T0210 
200 QN YLON=0. 

C 

210 CALL ONSlTY(RHO t TVAR » DE LZ ♦ VR , N, DRHODT , W t H > 

Q= ( QNYLON*DRHODT ( l ) +QPHNLC *DRHODT ( 2 ) +QM I CRO* DRHODT 

RETURN 

END 


INDP 35 
INDP 36 
INDP 37 
INDP 38 
INDP 39 
INDP 40 
INDP 41 
INDP 42 
INDP 43 
INDP 44 
INDP 45 
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SUBROUTINE PHMCR ( T , DELT f QPHNLC , QMICR0,K6 ) PHMC 

PHMC 

PHMC 

OIMENSION AC 41 ,BC4I ,CC4) ,DC4) ,EC4),A1C4) , 81 C4 ) , C 1 C4 ) , D 1 !4 ) , E 1 C4 ) PHMC 


PHMC 
PHMC 

— THIS SUBROUTINE COMPUTES THE HEAT OF PYROLYSIS OF PHENOL I C» PHMC 

PHMC 
PHMC 

BASED ON THE DATA OF SYKES AND NELSON {THERMO ANALYS IS OF PHMC 

ABLATION MATERIALS) PHMC 

IFCK6.GT. IIG0T04 PHMC 

NUMBER=4 PHMC 

AR£A=1 3 50. PHMC 

AR E A 1= 1 464. PHMC 

C READI, NUMBER, AREA, AREAI PHMC 

1 FORMAT! I6»2E10.8) PHMC 

DO 21 = 1, NUMBER PHMC 

REA03, AC I ),8<n,Cm,D{II,Em PHMC 

2 READ3,A1{ I ) ,B1C I I ,C1 1 I ) ,DI (I ) ,EI C I) PHMC 

3 FORMAT ( 5E12.8) PHMC 

4 IFC T.LT.623. )G0T05 PHMC 

I F I T.GT. 1073. JG0T05 PHMC 

1=1 , PHMC 

IFC T.GT. 748. .AND. T.LT. 798.) 1=2 PHMC 

IFC T.GT .798. .AND. T.LT. 898. ) 1=3 PHMC 

IFC T.GT. 898. 11 = 4 PHMC 

DT=( T-623. ) PHMC 

0T2=DT*DT PHMC 

0T3=0T2*QT PHMC 

DT4=QT3*DT PHMC 

C CALCULATE THE HFAT OF PYROLYSIS OF PHENOL IC C OPHNGL ) PHMC 

H=AC I ) + B( I )*DT+C( I )*DT2 + DC I )*DT3 + EC I )*DT4 PHMC 

QPHNLC=H*DELT*69. 312/AREA PHMC 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
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69. 312= TOTAL HEAT ABSORBED BY THE DECOMPOSITION OF 
PHENOLIC IN CAL/GRAM. 

CALCULATE THE HEAT OF PYROLYSIS OF PHENOLIC MICRO- 
BALL DON S I QM I CRO) 

1 = 1 

I F ( T.GT.713.. AND .T.LT. 798.11=2 
I F ( T.GT.798., AND. T.LT. 913. )I=3 
IF ( T .GT .913. 11=4 

H= A 1 ( I > + Bl( I ) *DT+C 1 1 I 1*012+01 ( I »*DT3 + EU I1*DT4 
QMICR0=H*DELT*90. 822/AREA1 
C 90 .8 22= TOTAL HEAT ABSORBED BY THE DECOMPOSITION OF 

C PHENOLIC MICRO-BALLOONS IN CAL/GRAM. 

RETURN 
5 QPHNLC=0. 

QMICR0=0. 

6 RETURN 
END 


PHMC 

35 

PHMC 

36 

PHMC 

37 

PHMC 

38 

PHMC 

39 

PHMC 

40 

PHMC 

41 

PHMC 

42 

PHMC 

43 

PHMC 

44 

PHMC 

45 

PHMC 

46 

PHMC 

47 

PHMC 

48 

PHMC 

49 

PHMC 

50 

PHMC 

51 

PHMC 

52 

PHMC 

53 
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c 

c 

c 

c 

c 

c. 

c 


c 

c 

c 


SUBROUTINE NYLON ( T , DELT t QNYLON ) 


NYLO 

l 



NYLO 

2 



NYLO 

3 

-THIS SUBROUTINE COMPUTES THE HEAT OF PYROLYSIS 

OF NYLON 

NYLO 

A 

BASED ON THE DATA OF SYKES AND NELSON ( THERMOANALYS I S OF 

NYLO 

5 

ABLATION MATERIALS) 


NYLO 

6 



NYLO 

7 

SLOPF=SLOPE OF LINE OBTAIN FROM SYKFS AND NELSON'S DATA. 

NYLO 

8 

QNYLON=0. 


NYLO 

9 

SL0PE=0. 6086957 


NYLO 

10 



NYLO 

11 

AREA=1122. 


NYLO 

12 

AREA=AREA UNDER CURVE OF F IGURE-2 ( DI FFERENT I AL 

THERMAL 

NYLO 

13 

ANALYSIS) 8 Y SYKES AND NELSON 


NYLO 

14 

C ON S T= I 50. 5738/AREA 


NYLO 

15 

I F ( T.LT.647. IG0T04 


NYLO 

16 

I F ( T .GT.699. JGGT02 


NYLO 

17 

I F ( T .G6.689..AND.T.LE.699.) GOTOl 


NYLO 

18 

H= SLOPE * ( T-64 7. ) 


NYLO 

19 

GO TO 3 


NYLO 

20 

H=24.4 


NYLO 

21 

GO TO 3 


NYLO 

22 

DH= SLOPE*! T-693. ) 


NYLO 

23 

H= 28. O-OH 


NYLO 

24 

I F ( T.GE.739. )H=0. 


NYLO 

25 

QNYLON=OELT*H*CONST 


NYLO 

26 

RETURN 


NYLO 

27 

END 


NYLO 

28 
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SUBROUTINE OMEGA I V AR , X , F t I MAX , SOM ) 

OMEG 

1 

c 


OMEG 

2 

c 


OMEG 

3 

c 


OMEG 

4 

c 

-THIS PROGRAM PERFORMS LAGRANGI AN INTERPOLATION 

OMEG 

5 

c 

WITH NON-EQUAL STEP SIZE BETWEEN POINTS 

OMEG 

6 

c 

F=DE PEND ANT VARIABLE 

OMEG 

7 

c 

X = INDE PENDENT VARIABLE 

OMEG 

8 

c 

VAR-VALUE OF X FOR WHICH CORRESPONDING VALUE OF 

OMEG 

9 

c 

F IS DESIRED BY INTERPOLATION 

OMEG 

10 

c 

I MAX=NUMBER OF POINTS IN ARRAY X OR F 

OMEG 

11 

c 

SQM= VA LUE OF INTERPOLATED DEPFNOENT VARIABLE 

OMEG 

12 

c 

NPTS = NIJMBER OF POINTS USED FOR INTERPOLATION 

OMEG 

13 

c 


OMEG 

14 


DIMENSION X( 1 ) » F ( I ) , XN ( 350 ) , FN ( 350 > 

OMEG 

15 


COMMON/KK/I P 

OMEG 

16 


NPT S = 3 

OMEG 

17 

607 

XUP=1.E 30 

OMEG 

18 


DO 6 1 11 = 1, 1 MAX 

OMEG 

19 


T = VAR- X ( I ) 

OMEG 

20 


I F ( T.GE.O. ) GO TO 6 09 

OMEG 

21 

608 

T=- T 

OMEG 

22 

609 

I F ( T.GE.XUP)G0T061l 

OMEG 

23 

610 

I P = T 

OMEG 

24 


XUP=T 

OMEG 

25 

611 

CONT INUE 

OMEG 

26 


I N= l 

OMEG 

27 


NPP=NPTS+1 

OMEG 

28 


D06 1 81 = 1 f NPP 

OMEG 

29 


FN( I)=F{ I P 1 

OMEG 

30 


XN (I) = X ( 1 1> ) 

OMEG 

31 


1 F ( IN.GT.01GUT0613 

OMEG 

32 

6 1? 

I Q= I P- I 

OMEG 

33 


GOTO 61 9 

OMEG 

34 
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613 

IQ=IP+I 

OMEG 

35 


I F ( [MAX .GE .10 )GOT061 5 

OMEG 

36 

614 

I P=I P-1 

OMEG 

37 


G0T0618 

OMEG 

38 

615 

IF( I 0 .G T . 0 )GO T061 7 

OMEG 

39 

616 

I P=I P+1 

OMEG 

40 


G0T0618 

OMEG 

41 

617 

I P= I Q 

OMEG 

42 


[ N=- I N 

OMEG 

43 

618 

CONTINUE 

OMEG 

44 


SOM=0. 

OMEG 

45 


FACT=1 • 

OMEG 

46 


0Q62QJ=l tNPTS 

OMEG 

47 


SOM=SOM+FACT*FN< 1 [ 

OMEG 

48 


D06191=J,NPTS 

OMEG 

49 


I Q= I - J+ l 

OMEG 

50 

619 

FN( l Q )= ( FN( I0+1»-FN( 10) ) /f XN( I + D -XNUO) ) 

OMEG 

51 

620 

FACT=FACT*(VAR-XN( J) ) 

OMEG 

52 


RETURN 

OMEG 

53 


END 

OMEG 

54 
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SUBROUTINE THERM1 

THIS SUBPROGRAM CALCULATES THE HEAT OF FORMATION AND 
THE ENTROPY OF EACH CHEMICAL SPECIE 

C0MM0N/KA/SH6) ♦ S2 ( 6 I ,S3(6) ,SAI 6),S5(6),S6(6),A11(6), 
1A22(6),A33(6I , A44 ( 6 ) , A5 5 < 6 ) , A66 < 6 ) ,AA(30,6) , JC0DEC6) 

COMMON /KB /A I ( 30 ) , B I ( 301 *C I ( 30 * ,D I ( 30 I ,E I ( 30 ) , F II 30 > , GI ( 30 ) , 
2 A I I ( 30 ) , B I l ( 3 0 ) , C 1 1 ( 30 I ♦ DI I ( 3 0 > , E 1 1 ( 3 0 J , FT I { 30 ) ♦ G 1 1 ( 30 ) ♦ 
3TLOWI30) 

COMMON /KC /ICO DEI 30) »Y(30I ,XMWI30) 

COMMON/KEE/PL ,RR ,TZERO f EPS, KEY, NN,NQ,MM 
COMMON/KG/ENT ( 30) * S I 30) , ENT1 ( 30 ) , T 

S 1 • • . . S6=EMP I RI C AL CONSTANTS FOR THE HIGH TEMPERATURE 
ENTHALPY FIT OF THE CONSTITUENT ELEMENTS 
All. .A66=EMPIRICAL CONSTANTS FOR THE LOW TEMPERATURE 
ENTHALPY FIT OF THE CONSTITUENT ELEMENTS 
AI....GI=EMPIRICAL CONSTANTS FOR THE HIGH TEMPERATURE 
FIT OF THE CHEMICAL SPECIES 

A 1 1 . .BI I = EMPIRICAL CONSTANTS FOR THE LOW TEMPERATURE 
FIT OF THE CHEMICAL SPECIES 
DIMENSION CPDT1 (6) 

ENTI I ) =HE A T OF FORMATION AT ANY TEMPERATURE T 
ENTlfI) = SENSIBLE ENTHALPY GA I N+CHEMIC AL ENERGY I HEAT 
OF FORMATION AT 298.16 OK) 

CPDTlI J)= SENSIBLE ENTHALPY GAIN OF THE ELEMENTS 

TLOWI I ) ^TEMPERATURE AT WHICH ONE MUST CHANGE FROM ONE- FIT 

TO THE OTHER OR, THE MIN TEMP OF HIGH TEMP FIT. 

S^ENTROPY 

NN=NUMRER OF GAS SPECIES 
NQ=NUMBER OF GAS+SOLID SPECIES 
MM=NUMR ER OF CONSTITUENT ELEMENTS 
T=TEMPERATURE IN OK. 

T l = T 
T2=T1*T 
T 3= T2 *'T 


THER 

1 

THER 

2 

THER 

3 

THER 

A 

THER 

5 

THER 

6 

THER 

7 

THER 

8 

THER 

9 

THER 

10 

THER 

11 

THER 

12 

THER 

13 

THER 

1A 

THER 

15 

THER 

16 

THER 

17 

THER 

18 

THER 

19 

THER 

20 

THER 

21 

THER 

22 

THER 

23 

THER 

2A 

THER 

25 

THER 

26 

THER 

27 

THER 

28 

THER 

29 

THER 

30 

THER 

31 

THER 

32 

THER 

33 

THER 

3A 
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T4=T3*T THFR 

T5=T4*T THER 

A 1 = T 1 THER 

A2=T2/2 . THER 

A 3= T3 /3 . THER 

A4=T4/4. THER 

A 5=T5/5. THER 

C CALCULATE THE HEAT OF FORMAT I ON , ENT , AND THE ENTROPY S. THER 

00 8 1=1, NQ THER 

IF( T.LT.TLOW(l) JG0T03 THER 

ENTK [) = ( A I ( I l*Al+8I( I) +A2+CI ( I ) *A3+D I I I )*A4+El (I)*A5 THER 

1+FKI))*RR THER 

S(I) = ( AI m*ALOG{T)+BI (I )*A1+CI ( IKA2+DK I)*A3+EI ( I)*A4*GI( I ) )*RR THER 
IF ( I ,GT, 1IG0T05 THER 

002 THER 

2 CPDT1(J) = ( Sl( J)*Al+S2< JKA2 + S3I J)*A3+S4( J >*A4 + S5 ( J )*A5+S6<[ J ) )*RR THER 

G0T05 - THER 

3 ENTK I ) = ( A 1 1 ( I)*A1+BI I (I )*A2+CII ( IKA3 + D1 H I >*A4+EI I ( l )*A5 THER 

l+FIim)*RR THER 

S ( I » = ( A I I ( I ) *ALOG ( T ) +B I I (IKA1 + CIK I l*A2 + 0I I ( I I*A3+E 1 1 ( I )*A4 THER 

UGIKIIHRR THER 

IF( I.GT.1IG0T05 THER 

004 J = l , MM THER 

4 CPOTK J ) = ( A1 l< J) *AH-A22( J)*A2 + A33IJ> *A3 + A44( J)*A4+A55I J )*A5 THER 

1 +A 6 6 ( J ) ) *RR THER 

5 RSUM=C. THER 

R SUM IS THE SENSIBLE ENTHALPY OF THE CONSTITUENT F.LEMFNTS THER 

OF THE ITH SPEC T E ( AT TEMPERATURE T(OK) WITH RESPECT TO THE THER 

STANDARD STATE P=1 ATM AND T=298.16 OK). THFR 

DQ7 J=1 , MM THER 

IF{ JCOOEI J) .EQ. DG0T06 THER 

WHEN JCODE ( J ) =C , THE CONSTITUENT ELEMENT HAS BEEN ASSUMED TO BF THER 
IN ITS 8 1 -MULECUL AR FORM, FOR EXAMPLE HYDROGEN IS TAKEN TO BE THER 

H2. WHEN JCODE ( J ) =1 , THE CONSTITUENT ELEMENT HAS BEEN ASSUMED TO THFR 
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C 


6 

7 


8 


8 F ITS UNI-MOLECULAR, OR ATOMIC FORM. FOR EXAMPLE CARBON IS TAKEN THER 


TO BE C. THER 
A A ( l , J ) IS THE FORMULA NUMBER. IT GIVES THE GRAM-ATOMS OF THER 
ELEMENT J IN SPECIE I. EXAMPLE, C HA (METH AN El ,AA( T * J ) FOR THER 
CARBON IS 1. FOR HYDROGEN IS 4. THER 
RSUM=RSUM*0« 5 00* AA ( I,J|*CPDT1< J> THER 
GOT07 THER 
RSUM=RSUM*AA( I , J) *CPDTI ( J) THER 
CONTINUE THER 
ENT( I ) = ENT 1 { I I -R SUM THER 
IF ( ABS< ENT( I) ) .LT.3. )ENT(I )=0. THER 
CONTINUE THER 
RETURN THER 
END THER 
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SUBROUTINE ON SI T Y < RHO , T ,DEL Z , VR , K6 , DRHODT , W , H > 


THIS SUBROUTINE CALCULATES THE DENSITY OF PHENOLIC-NYLON 
COMPOSITES AS A FUNCTION OF TEMPERATURE — RASED ON DATA 
OF SYKES AND NEL SON ( THERMOANAL Y S I S OF ABLATION MATERIALS) 


COMMON/KL/WTQTAL , RHO 1 1 

DIMENSION RHO 1(5) , RHOT ( 5 ) , RHOCI5 ) , A (7) ,E(7) , RATER 17), 

1 DRHODT ( 5) ,XN( 5,7) ,FRAC I 5 ) ,RHOVOL I 5) 

DIMENSION MASFRC ( 5) , MA SFL X ( 5 ) , VOLUME ( 5) ,VOLFRC( 5 ) , DELFLXI 5 ) 
DIMENSION RHOCC ( 5 ) , DRHOI 5 ) 

INTEGER COMPS T 
REAL MASFRC, MASFLX 
IF ( K6 ,C»T . I ) GO TO 7 


REAO INPUT 


READ l,COMP$T,NREACT 
1 FORMAT (216) 

COMPST=NlJMBER OF COMPOSITE MATERIALS DEGRADING DURING 
ABLA TI ON • 

NREACT=NUMBER OF PSEUDO-KI NFT IC REACTIONS USED TO DES- 
CRIBE THE DEGRADATION OF THE ABLATIVE COMPOSITES. 


INITIALIZATION OF XNI l , J) , WHl CH IS THE ORDER OF THE 

REACTION 


DNS I 

1 

DNS I 

2 

ON SI 

3 

DNS T 

4 

DNS I 

5 

DNS I 

6 

DN SI 

7 

DNS I 

8 

DNS I 

9 

ONSI 

10 

DNS I 

11 

DNS I 

12 

DNS I 

13 

DNS I 

14 

DNS I 

15 

DNS I 

16 

DNS I 

17 

DNS I 

18 

DNS I 

19 

DNS I 

20 

DNS I 

21 

DNS I 

22 

DNS I 

23 

DN S I 

24 

DNS I 

25 

DNS I 

26 

DNS I 

27 

ONSI 

28 

ONSI 

29 

DNS I 

30 

DNS I 

31 

ONSI 

32 

DNS I 

33 

DNS I 

*94 
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C 

DO 2 J = 1 » NRE AC T 
(JO 21 = 1 »COMP ST 
2 XN( I » J ) = 0 . 

A ( J ) = F R E Q U£ NC Y FACTOR I SEC-1 ) 

E(J)=ENERGY OF AC TI VAT I ON ( JOULE / I MOL E I) 


R = 8 • 3 1 4 

C R=8.314( JOULE S/I MOLE-OK) ) 

C 

C 

C RHOI! 1 ) = 68.6( NYLON) 

C RHOI ( 2 ) =80 • 0 ( PHENOLIC RESIN I 

C RHOI ( 31 = 17.81 PHENOLIC-MICROBALLOONS) 

C RHOC ( 1 >=68.6*0.075=5. 145 

C RHOC ( 21=80.0*0. 541= A3. 28 

C RHOC( 3)=17. 8*542=9. 6476 

C 
C 

C MASFRCI 1 ) =0.4 

C MASERU 2 ) = 0 . 2 5 

C MASERU 3 ) =0 . 35 

C 
C 
C 

C- INITIALIZE 

C 

C 

C 

C XNI I , J)=ORDER OF THE KINETIC. EXPRESSION. 

C 

D3TJ=lf NREACT 


ON SI 

35 

ON SI 

36 

DNS I 

37 

ONSI 

38 

ON SI 

39 


40 


41 

ONSI 

42 

ONSI 

43 

DNS I 

44 

DNS I 

45 

ONSI 

46 

ONS I 

47 

ONSI 

48 

ONSI 

49 


50 

ONSI 

51 

DNS I 

52 

ONSI 

53 

DNS I 

54 

DNS I 

55 

ONSI 

56 

ONSI 

57 

ONSI 

58 

ONSI 

59 

ONSI 

60 

DNS I 

61 

ONSI 

62 

ONSI 

63 

ONSI 

64 

ONSI 

65 

ONSI 

66 

ONSI 

67 

ONSI 

68 
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3 

READ A, I ,A( J> ,E( J) ,XN( I , Jl 

DNS I 

69 


4 

FORMAT! 4X t I6.3E10.8) 

DNS I 

70 



READ 5, (RHOK IJ, RHOC ( I) , MASFRC ( I 1 , I = l t CCMPST) 

DNS I 

71 


5 

FORMAT ( 3E10 • A | 

DNS I 

72 

c 



DNS I 

73 

c 



DNS I 

74 

c 


RHOI( I l = ! MI T I AL DENSITY OF COMPOSITE I 

DNS I 

75 

c 


RHOC ( I >=RESIDUAL DENSITY OF COMPOSITE I 

DNSI 

76 

c 


RHOT ( I )=OENSITY OF THE COMPOSITE I AT ANY TEMPERATURE 

DNS I 

77 

c 



DNSI 

78 

c 



DNSI 

79 

c 



DNSI 

80 

c- 

— 

-LET RHOT (I)=RHOI(I) AS INITIAL CONDITION 

DNSI 

81 

c 



DNSI 

82 

c 



DNSI 

83 



DO 6 1 = 1 » COMP ST 

DNSI 

84 



RHOCC! I ) =RHOC ( I )+0.001*RH0C(I ) 

DNSI 

85 



MASFLX! I ) =0. 

DNSI 

86 


6 

R HO T ( I ) = RH0 I ( I ) 

DNSI 

87 



SUM V0L=0 . 

DNSI 

88 



DO 60 1 = 1 » COMP ST 

DNSI 

89 



VOLUME! I ) = M A S F RC 1 I ) /RHOT! I ) 

DNSI 

90 


60 

SUMVaL = SUMVGL«-VOLUME( I) 

DNSI 

91 



DG 65 1=1 » C 0 M P S T 

DNSI 

92 


65 

VOLFRC! I )= VOLUME ( I ) /SUMVOL 

DNSI 

93 



PHO=l. /SUMVOL 

DNSI 

94 



RHOIT = RHIJ 

DNSI 

95 



WTQT AL=RHOI I *VR 

DNSI 

96 



PRINT 66 , RHO » WTO T AL 

DNSI 

97 


66 

FORMATdX, • INITIAL DENSITY OF COMPOS TTE ( L8S/ FT**3 ) = * F 10 . 5 , 2X , 

DNSI 

98 


1 •WT0TALILRS/FT**2-SEC)='E15.7/) 

DNSI 

99 


7 

KRR=1000./{R'*T) 

DNSI 

100 



RHOPR V=RHQ 

DNSI 

101 



DO 9 I=1,C0MPST 

DNSI 

102 
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SUM=0 . DNS I 

DO 3 J -1 t NRE ACT DNSI 

I F f XN( I , Jt .EQ.O. IG0T08 DNSI 

C DNSI 

C RATER(J)= SPECIFIC REACTION VELOCITY DNSI 

I F ( R HO T ( I ) .LE.RHOCI I ) ) RHOT (I) = RHOCC I I) DNSI 


RATER l J)=-RHOI( I )*< ( RHOT ( I ) -RHOC ( I) l/RHOII I I )**XN I 1 , J ) * A { J ) * EXP ( - DNSI 


IE ( J ) *RR R I DNSI 

SUM=SUM+RATER< J) DNSI 

8 CONTINUE DNSI 

DRHODTI M=SUM DNSI 

IF ( RHOT ( I ) .LE.RHOCCl I ) ) DRHODTI I ) = 0. DNSI 

9 CONTINUE DNSI 

PRINT 900»H » DELZ DNSI 

900 FORMAT ( 1 X , • IN DENSITY H='E15.7,' DELZ= • E 1 5 . 7 ) DNSI 

DNSI 

CONTROLLING STEP SIZE FOR STABILITY DNSI 

DNSI 

TE ST=0 . DNSI 

DO 90 1=1 »COMPST DNSI 

DRHOm=-DELZ*DRHOOTI I ) /VR DNSI 

90 TEST=AMAX1 ( TEST , DR HOI I) ) DNSI 

I F ( TEST .GT . 0 • 5 ).H=H / 2 • DNSI 

I F ( TEST.LT..1) H=H*2 • DNSI 

I F ( H.GT.2.08F-4)H=2.08E-4 DNSI 

OELZ=STEP SIZE IN FEET DNSI 

DELZ=H ONSI 

RH0=0. DNSI 

W = 0 . DNSI 

DO 101 = 1 »COMP ST DNSI 

DELFLXI I )=-DELZ*DRHODT( I ) DNSI 

DNSI 

DELFLXI I )=CHANGE IN MASS FLUX DUE TO A CHANGE IN THE DNSI 

DENSITY OF THE COMPOSITES. DNSI 


103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 
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DNS! 

137 


RHOT ( I )=RHOT{ I ) -DELFL X( I ) /VR 


DNS I 

138 


R HO VOL ( I ) = RHO T ( I ) +VOLFRC ( I 1 


ON SI 

139 


RHO=RHO+RHOVOL ( I ) 


DNS I 

140 

c 

RHU=3ULK DENSITY OF THE COMPOSITE 


DNSI 

141 


MASFLX! I ) =MA SFL X ( I) ♦DELE LX ( I ) 


DNS I 

142 

10 

W^W+MASFL X( I ) 


DNSI 

143 


W 1= ( RHO I I-RHO)*VR 


DNSI 

144 


W=W 1 


DNSI 

145 


DO 100 1=1 »COMPST 


ONSI 

146 

100 

MASFRCl I )=RHOVOL( 1 1 /RHO 


DNSI 

147 


PRINT 1 1 , RHO ,DELZ , VR , T „ W 


DNSI 

148 

11 

FORMAT! IX, 'RHOIOVERALL DENSITY OF = 'E10.4,' DELZ='E10 

(t 

> 

>* 

. 

*E10.4,DNSI 

149 


1* T='E10.4, • W='E13.5) 


DNSI 

150 


PRINT 12 


DNSI 

151 

12 

FORMAT! 8X, 'VIRGIN MATERIAL)') 


DNSI 

152 


DO 14 I=i,CGMPST 


DNSI 

153 


PRINT 13,1 ,RHOT l I ) , I , DRHOOT l I ) , I ,DRHO< I ) , I , MASFRC ( I ) 


ONSI 

154 

1 3 

FORMAT! IX, • RHOT! *I1,')='E12.6,' DRODTC 1 1 , • ) = ' E 1 2 . 6, ' 

DR HO! 

•11,' ) = DNS I 

155 


1 ' E 12 • 6, ' MASFRC! Ml,' ) = • El 2.6) 


DNSI 

156 

14 

CONTINUE 


DNSI 

157 


RETURN 


DNSI 

158 


END 


DNS! 

159 
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SUBROUTINE CHARPP 

CHARPR SUBROUTINE CALCULATES THE EFFECTIVE THERMAL 
CONDUCTIVITY AND HEAT CAPACITY OF THE CHAR . 


COMMON /KF/C PS ,CDO , DCDO , JCHAR , TC 
T=TEMPE RATURE IN RANKINE 
TC=TEMPERATURE IN FARENHEIT 
CP S= HE AT CAPACITY OF CH AR ( BTU/LB-OF » 

C DO= EFFEC T I VE THERMAL CONOUC T I V I TY ( BTU/FT-S EC-OF ) 
DCDO=RATE OF CHANGE OF CDO WITH TEMPERATURE 
TC 2= TC * TC 
TC3=TC2*TC 

IF( TC .GT.2500. ) GOTQ507 
T= TC+459.7 

CP S= 0.43 + 3. 6E-5*T-87.2E3/( T*T) 

IF ( TC.LT. 1000. ICPS=0.39 
507 CP S=0. 52 

CD0 = 11.57E-5+-5.3E-I5*TC3 
DCUO= 15 . 9E- I 5*TC 2 
RETURN 
END 


CHAR 

1 

CHAR 

2 

CHAR 

3 

CHAR 

4 

CHAR 

5 

CHAR 

6 

CHAR 

7 

CHAR 

8 

CHAR 

9 

CHAR 

10 

CHAR 

11 

CHAR 

12 

CHAR 

13 

CHAR 

14 

CHAR 

15 

CHAR 

16 

CHAR 

17 

CHAR 

18 

CHAR 

19 

CHAR 

20 

CHAR 

21 

CHAR 

22 
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SUBROUTINE C PMI X ( T , NN,C PMX ) 


THIS SUBROUTINE COMPUTES THE MOLAL HEAT CAPACITY 

OF A NON-REACTING GAS. IT IS ONLY USE FOR THE 
FROZEN FLOW CASE. 


COMMON/KB/ AI ( 30 ) ,8 1 ( 3 0) , C I ( 30 I »D I ( 30 ) f E 1 1 30 I « F I< 30 ) * 
IGK 30), A I II 30) ,61 1(30) ,CII (30) ,DI 1 1 30 ) , E 1 1 < 30 > , 

2 F I I ( 30 ) , G 1 1 1 30)»TLOW(30) 

COMMON/KM/XMOLI 30) 

DIMENSION CPI 30 ) 

RR=1. 98726 

CPMX=HE AT C APCI TYI BTU/LB-MCLE-OF ) 


CALCULATE THE HEAT CAPACITY OF EACH INDIVIDUAL SPECIE. 


C PM X = 0 • 

DO 3 1=1* NN 

IF! T.GT.TLOWI I ) )G0T01 

CPi n=( a 1 1 1 1 j ♦< i (eii ci )* t+di 1 1 1 ) )*t+cii m i*t+bi i 1 1 )»*t)*rr 

GO T02 

1 CPI I )=< Aim + ( ( (Eli n*T+DI( in*T+CI(I))*T+BI( in*T»*RR 

2 CPMX=CPMX+CP( I )*XMOL( I) 

3 CONTINUE 
RE TURN 
END 


CPM I 

1 

CPMI 

2 

CPM 1 

3 

CPMI 

A 

CPMI 

5 

CPMI 

6 

CPM I 

7 

CPMI 

8 

CPMI 

9 

CPMI 

10 

CPMI 

II 

CPMI 

12 

CPMI 

13 

CPMI 

IA 

CPMI 

15 

CPMI 

16 

CPMI 

17 

CPMI 

18 

CPMI 

19 

CPMI 

20 

CPMI 

21 

CPMI 

22 

CPMI 

23 

CPMI 

2A 

CPMI 

25 

CPMI 

26 

CPMI 

27 

CPMI 

28 

CPMI 

29 

CPMI 

30 

CPMI 

31 

CPMI 

32 
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SUBROUTINE CHEMEQ 


THIS SUBPROGRAM COMPUTES COMPLEX CHEMICAL EQUILIBRIUM 
FOR A MULTICOMPONENT, POLYPHASE SYSTEM BY FREE ENERGY 
M IN I MI Z ATI ON. ( J . CHEM . PHY S . VOL . 2 8 . NO . 5 , 7 5 1 -5 8 , MAY 19581 . 


COMMON/KA/SK 6) , S2 ( 61 , S3 ( 6 ) , S4 ( 6 ) , S 5 < 6 ) » S6 ( 6 I , A1 1 1 6 ) , 
1A22I 6),A33(6) ,A44(6)»A55(6) , A66 I 6 ) , AA 130 ,6 ) , JCODE C 6 ) 
C0MM0N/K8/A I ( 30 > , B I (3 0 I , C II 30 ) , 0 I ( 30 I ,E H 30 J , F I ( 30 I , 
1GK 30), AI I( 30) ,BI 1(30) ,CII(30)tDI 1(30) ,EI 1(30), 

2FII( 30) ,GI I( 30) ,TL0W(30) 

COMMON/KC/I CODE ( 30) ,Y(30> ,XMW(30) 

C0MM0N/KCC/SPCIE1 ( 30 ) , SPC IE2 ( 30 ) ,T ABLE ( 353 , 25 ) 
COMMON/KGG/FORT(30) ,CP(30) 

COMMON/KEE/PL ,RR , T ZERO , EP S , KEY , NN , NQ , MM 

COMMON/KI /WEPS,KPT3,K0UNT 

COMMON/KJ/OELTK,TVAR 

COMMON/ KG /ENT (30) , S(30) , ENT1 ( 30 ) , T 

COMMON/KNN / TF MAX 

DIMENSION PERC (30) ,PERC1 (30) ,XM0L(30) ,X MOL 1(30) 
DIMENSION X ( 30) , F Y ( 30 ) , C ( 30 ) , 80 ( 8 » , FSUM( 30 ) , YSUM ( 30 ) , 
1 XMA SS( 30) , XL AM( 30) ,FLUX( 350 ,25) , 

2DFLUX( 3 50,25) ,R( 6,6) ,B(6,l) ,Pl(6) ,DELT(30) 

C 

C 

C PL = PRE SSIJRE IN L8S/FT2 

C RR=l.987(CAL /GM-M0L6-0K ) 

C TZER0=29R.16 OK 

C EPS= POROSI T Y OP THE MATRIX 

C KE Y= 2 FOR EQUILIBRIUM FLOW 

C NN= NUMBER OF GAS COMPONENTS 


CHEM 1 
CHEM 2 
CHEM 3 
CHEM 4 
CHEM 5 
CHEM 6 
CHEM 7 
CHEM 8 
CHEM 9 
CHEM 10 
CHEM 11 
CHEM 12 
CHEM 13 
CHEM 1* 
CHEM 15 
CHEM 16 
CHEM 17 
CHEM 18 
CHEM 19 
CHEM 20 
CHEM 21 
CHEM 22 
CHEM 23 
CHEM 24 
CHEM 25 
CHEM 26 
CHEM 27 
CHEM 28 
CHEM 29 
CHEM 30 
CHEM 31 
CHEM 32 
CHEM 33 
CHEM 34 
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NQ=NUMBER OF SOLID+GAS COMPONENTS 

TABLE! I ,J)STORES THE VALUES OF THE TEMPERATURE ( J= 1 ) I N 
OK, THE HEAT ABSORBED OR RELEASED BY CHEMICAL REACTIONS 
( J=2 1(8 TU/FT**3-SEC ) ,THE AVERAGE MOLECULAR WEIGHT OF THE 
MI XTURE! J=3) ,THE MASS FLOW RATE OF THE G ASES ( LBS/FT2-SEC ) , 
AND THE AVERAGE HEAT CAPACITY OF THE MIXTURE. 

FROM J = *5 ON, THE VALUES OF MOLES, Y(IJ,OF EACH INDIVIDUAL 
ARE STORED. I IS THE NUMBER OF TEMPERATURE POINTS 

Wl = WEPS/E PS 
W=WEPS/EPS 
XT= TVAR 
CRI T=0. 0001 

TMA X=( TFMAX+4 59.69) /I. 8 
T I NC= ( TMAX-XD/346. 

IF(TINC.LT.7.5)TINC=7.5 

TINC=200. 

TMA X=TMA X*-4. *TI NC 
READ 7 1 I PR I NT 
7 FORMAT! ID 
NS = NQ 
NC = NN 

XT= I NI TI AL TEMPERATURE! OK) 

TMA X=F ! NAL TE MPE R ATURE ! OK ) 

T I NC= INC RE ME NT OF TEMPERATURE 
CRIT=CR TTERIA FOR CONVERGENCE 
KEY=2! EQUIL IBKIUM) 

MA = 1 
M= M A 

CALCULATE THE SIZE OF THE MATRIX R. 



36 

37 

38 

39 

40 

41 

42 

43 


44 


45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 


59 

60 
61 
62 

63 

64 

65 

66 

67 

68 
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NA-MM* 1+NQ-NN 
N = NA 

P=PL/2160. 

KP T=0 


KPT COUNTS THE NUMBER OF TEMPERATURE POINTS 
MA XN T = 1 00 

MA XNT=MA XI MUM NUMBER OF ITERATIONS ALLOWED 

BEFORE INCREASING CR I T ( CR I T=CR ITER I A FOR CONVERGENCE I 

KC0DE = 0 

KCO0E=0 ( NO SOLIDS ) , KCODE=I ( SOL I 0 S ARE ASSUMED PRESENT) 
T= X T 

KOS=NQ+5 

KOS IS THE TOTAL NUMBER OF VARIABLES STORED 
IN TABLE( I,JI( J=I...KOS) 

ENT ( I ) -HEAT OF FORMATION OF SPECIE I 
FORT ( I ) =FREE ENERGY FUNCTION ( F/RT ) 

FORT IS CALCULATED IN SUBROUTINE FRNERG 

LL=NN+1 

XBE T A=CR I T 

CALCULATE THE GRAM-ATOMS OF EACH ELEMENT , BB (J ) . 

BB(J)IS THE MATERIAL RALANCE CONSTRAINT ON THE 
FREE FNERGY EQUATION. 


DO320 J= 1 , MM 
B 8 { J ) = 0 . 

DO 320 1=1, NQ 

BB( J ) =BB I J ) + A A I I , J) *YI I) 

320 CONTINUE 

DO A 3 31 = 1 , NO 

I F ( I CODE! I ) .EQ.O)GOTOA33 


C HEM 

69 

CHEM 

70 

CHEM 

71 

CHEM 

72 

CHEM 

73 

CHEM 

74 

CHEM 

75 

CHEM 

76 

CHEM 

77 

CHEM 

78 

CHEM 

79 

CHEM 

80 

CHEM 

81 

CHEM 

82 

CHEM 

83 

CHEM 

84 

CHEM 

85 

CHEM 

86 

CHEM 

87 

CHEM 

88 

CHEM 

89 

CHEM 

90 

CHEM 

91 

CHEM 

92 

CHEM 

93 

CHEM 

94 

CHEM 

95 

CHEM 

96 

CHEM 

97 

CHEM 

98 

CHEM 

99 

CHEM 

100 

CHEM 

101 

CHEM 

102 
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KCOOE= 1 
43 3 CONTINUE 

TEST TO DETERMINE WHETHER THERE ARE SOLIDS IN THE 

SYSTEM OF SPECIES ASSUMED. 

500 IF t I PRINT .EQ. 0» GO TO 5C1 
PRINT4 

4 FORMAT! 1 HI , 20 X, 5HF C/RT , 13X , 1 2H I N I T I A L Y(IM 

CALL THE FREE ENERGY SUBPROGRAM 

501 NT=1 

CALL FRNERG(T.NQ) 

the ABOVE SUBPROGRAM CALCULATES THE FREE ENRGY FUNCTION FORT. 

I F ( IPRINT .EQ. 0) GO TO 300 
D0206I =1 »NQ 

206 PR INTI 4, 1 'SPCIEIU) *SPCIE2(IJ .FORTH } f YC I ) , XMW ( I ) 

14 FORMAT! IX.I2.2X.2A3.3E20. 7) 

300 YBAR = 0 * 0 
D050I=1 ,NN 


YBAR IS THE TOTAL NUMBER OF MOLES OF GAS SPECIES 

50 YBAR= YBAR+Yl I ) 

00101=1, NN 
C< I ) = FORT ( I H-ALOG(P) 

FAC=YU)/YBAR 

IFIFAC.LT .l.E-73)EAC=l.E-73 
C CALCULATE THE FREE ENERGY PARAMETER OF THE GAS SPFCIFS 


CHEM 

103 

CHEM 

104 

CHEM 

105 

CHEM 

106 

CHEM 

107 

CHEM 

10B 

CHEM 
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CHEM 
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CHEM 
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CHEM 

112 

CHEM 
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CHEM 
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CHEM 

115 

CHEM 

116 

CHEM 

117 

CHEM 

118 

CHEM 

119 

CHEM 

120 

CHEM 

121 

CHEM 

122 

CHEM 

123 

CHEM 

124 

CHEM 

125 

CHEM 

126 

CHEM 

127 

CHEM 

128 

CHEM 

129 

CHEM 

130 

CHEM 

131 

CHEM 

132 

CHEM 

133 

CHEM 

134 

CHEM 

135 

CHEM 

136 
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TO Be MINIMIZE 

FY( I J = Y ( n*(f.(I ) ♦ALOGI F AC) ) 
10 CONTINUE 

IFIKCODE.EQ.OJGOTOlll 


IF THERE ARE NO SOLIDS PROCEED TO STATEMENT 111 


CALCULATION OF THE FREE ENERGY PARAMFNTER FOR SOLIDS 

DO 11 I =LL » NQ 
FY( I I — Y ( I >*FORT< I I 
11 CONTINUE 

FROM STATEMENT 111 TO 1050 OPERATIONS ARE PERFORMED TO CONSTRUCT 

THE R MATRIX AND THE B VECTOR 


111 DO 30 J=1 , MM 
Q030K= l , MM 
SUM= 0 • 

00201=1 »NN 

20 SUM=SUM«-AA< I , J) *AA( I ,K J *Y< I > 
R ( J » K ) = SUM 
30 CONTINUE 
GSUM 1=0 • 

DO 1022 1=1, NQ 
GSUM 1=GSUM1+F Y( I ) 

1022 CONTINUE 
3000 J J=MM+ 1 

DO 103 K=1,MM 
SUM=0. 


CHEM 
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CHEM 

138 

CHEM 
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CHEM 

140 

CHEM 
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CHEM 

142 

CHEM 

143 

CHEM 

144 

CHEM 

145 

CHEM 

146 

CHEM 

147 

CHEM 

148 

CHEM 

149 

CHEM 

150 

CHEM 

151 

CHEM 

152 

CHEM 

153 

CHEM 

154 

CHEM 

155 

CHEM 

156 

CHEM 

157 

CHEM 

158 

CHEM 

159 

CHEM 

160 

CHEM 

161 

CHEM 

162 

CHEM 

163 

CHEM 

164 

CHEM 

165 

CHEM 

166 

CHEM 

167 

CHEM 

168 

CHEM 

169 

CHEM 

170 
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DO 101 I=l,NN 

CHEM 

171 

101 

SUM = SUM+ AA ( I ,K)*Y< I) 

CHEM 

172 


R ( K f JJ ) = SUM 

CHEM 

173 


R ( J J » K ) = SUM 

CHEM 

174 

103 

CONTINUE 

CHEM 

175 


KL=NS-NC+JJ 

CHEM 

176 


DO 1044 J = J J » KL 

CHEM 

177 


DO 1045 K=JJ,KL 

CHEM 

178 

1045 

R( J,K)=0.0 

CHEM 

179 

1044 

CONTINUE 

CHEM 

180 


D070 J=1 t MM 

CHEM 

181 


SUM=0. 

CHEM 

182 


001301=1 ,NN 

CHEM 

183 

130 

SUM = SUM* AA ( I ,JI *FY< I ) 

CHEM 

184 

70 

8( J, l ) = SUM+BB ( J ) 

CHEM 

185 


SUM=0. 

CHEM 

186 


00801 = 1 « NN 

CHEM 

187 

80 

SUM= SUM+F Y ( I ) 

CHEM 

188 


B ( J J » l ) = S UM 

CHEM 

189 


IF( KC0DE.EQ.0IGOT01050 

CHEM 

190 


KK=MM+1 

CHEM 

191 


DO 29 I =IL » NQ 

CHEM 

192 


KK=KK+ 1 

CHEM 

193 


DO 29 J = 1 t MM 

CHEM 

194 


R ( J » KK ) =A A ( I, J» 

CHEM 

195 


R(KK»J)=R( J,KK) 

CHEM 

196 

29 

CONTINUE 

CHEM 

197 


KM=Mf*+l 

CHEM 

198 


00 1053 I =LL » NG 

CHEM 

199 


KM = KM+ 1 

CHEM 

200 

10 53 

ft ( KM* 1 ) =FORT ( I ) 

CHEM 

201 

1050 

CONTINUE 

CHEM 

202 


I E ( KCODE . EQ. 0 ) R ( J J , J J ) =0 . 

CHEM 

203 

C 


CHEM 

204 
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-MATRIX INVERSION IS CALLED TO SOLVE THE SET OF 

S I MULT ANEOUS 

CHF.M 

205 


LINEARIZED EQUATIONS. 


CHEM 

206 




CHEM 

207 




CHEM 

208 


CALL MATINVIR ,NA,8,MA) 


CHEM 

209 




CHEM 

210 




CHEM 

211 


-FROM THE SOLUTION OF THE MATRIX THE VALUES OF 

THE LAGRANGIAN 

CHEM 

212 


MULTIPLIERS AND THE MOLES OF THE SOLID SPECIES 

ARE OBTAINED 

CHEM 

213 




CHEM 

214 




CHEM 

215 


001001=1, JJ 


CHEM 

216 

100 

Pim = B(I,M) 


CHEM 

217 


U=PI( JJ) 


CHEM 

218 


X8AR=U*YBAR 


CHEM 

219 


IF( KCOOE .EQ.0)GOTO59 


CHEM 

220 


KK=MM+2 


CHEM 

221 


L W = L L 


CHEM 

222 


DO 1002 J=KK,KL 


CHEM 

223 


X(LW)=R(J»M) 


CHEM 

224 

1002 

LW=LW+1 


CHEM 

225 

59 

00601=1 ,NN 


CHEM 

226 

60 

F SUM ( l |=— F Y ( I )♦< Yd) /YB AR 1 *X8 AR 


CHEM 

227 


DO 1101 = 1 ? NN 


CHEM 

228 


P SUM = 0 • 


CHEM 

229 


DO 1 20 J= l , MM 


CHEM 

230 

120 

PSUM=PSUM+PI ( J) *AA( I T J) 


CHEM 

231 


YSUM1 I )=PSUM*YI I ) 


CHEM 

232 




CHEM 

233 


-CALCULATE THE MOLES OF GASEOUS SPECIES 


CHEM 

234 




CHEM 

235 

110 

X( I ) = FSUM( l ) + YSUM( I ) 


CHEM 

236 




CHEM 

237 

— 

-CALCUALTE THE CONVERGENCE PARAMENTE XLAMBD 


CHEM 

238 
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XLAM8D=1 .0 
DO 86 1=1, NQ 
DEL T( I ) = X ( I ) - Y( I ) 

IF(OELT( I ) .GE .0. IG0T086 
I F ( X( I) .GT.O. JG0T086 
XL AM ( I )=-Y( I » /06LT( I J 
XLAMBO=AMI N1 ( XLAMBD , XLAM ( I ) ) 
XLAMBD=C.99*XLAMBD 

86 CONTINUE 
XLAM1=XLAMBD 

IF ( XL AM 1. EG. 0.) XLAMi=l.E-5 
DEBAR=0. 

D087 I = 1 » NN 

87 OEBAR=DEBAR+DELT( I) 


DETERMINE THE SIZE OF THE UNIT VECTOR XLAMBD. 

APPLY THE CORRECTIONS TO OBTAIN A NEW SET OF ESTIMATES FOR THE 
NEXT ITERATION. WHEN THE VALUE OF XLAMBD IS VERY SMALL SET THE 
VALUES OF Y C I » EQUAL TO XII) TO AVOID USING THE SAME VALUES OF 
Y ( I I AS WAS USED IN THE PREVIOUS ITERATION 


CALCUALTE THE FREE NERGY GRADIENT DFDL . IF IT IS POSITIVE 

REDUCE THE VALUE OF XLAMRO UNTIL DFDL IS NEGATIVF . 

93 D F D L = 2 . 

00881=1, NQ 

l F C ICODE(I) .EC. DG0T083 

96 F AC = { Y{ I ) «• XLAMBD *OELT( I ) ) / (YBAR+XLAMBD*DE8AR ) 

98 IF( FAC.GT.n. IGOTOR2 
991 XLAMBQ=. 9*XLARRD 


CHEM 

239 


CHEM 

240 


CHEM 

241 


CHEM 

242 


CHEM 

243 


CHEM 

244 


CHEM 

245 


CHEM 

246 


CHEM 

247 


CHEM 

248 


CHEM 

249 


CHEM 

250 


CHEM 

251 


CHEM 

252 


CHEM 

253 


CHEM 

254 


CHEM 

255 


CHEM 

256 


CHEM 

257 


CHEM 

258 


CHEM 

259 


CHEM 

260 


CHEM 

261 


CHEM 

262 


CHEM 

263 


CHEM 

264 


CHEM 

265 


CHEM 

266 


CHEM 

267 


CHEM 

268 


CHEM 

269 


CHEM 

270 


CHEM 

271 

Q 

CHEM 

272 
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I F C XLAM80.GT. 1.06- 6)G0T096 
I F ( FAC.LT. l.E-73)FAC=l .E-73 

8 2 DFDL=DFDL+DEL T ( I ) * { C (I »♦ ALOG( FAC ) ) 

GOTO 88 

83 DFDL=DFOL+DELT( I)*FORT< I) 

88 CONTINUE 

I F ( DFDL . LT. 0.000) G0T089 

XLA M80= . 9* XL A MB D 

IF( XLAMBD.GT.l.OE- 6)G0T(193 

CALCULATE THE NEW AND IMPROVED VALUE OF THE MOLES OF THE SPECIES. 

89 D 0 7 6 1 = 1 f NO 

I F C XLAMBD.GT .l.F— 6) GOT090 
I F ( DFDL.LT.O. IG0T09C 
IF ( XLAMI.LT. I. E-6»XLAMl=l.E-6 
Y( I )=Y( I )+XLAMl*DELT( I)*. I 
GO TO 900. 

90 CONTINUE 

Y ( I I — Y ( I )«-XLAMBD*DELT< I ) 

900 CONTINUE 

IF(Y( I I.LT.0.1YI I ) =1. E-73 
76 CONTINUE 
SUM Y=0 • 

SUM=0. 

003701=1 ,NN 

370 $UMY=SUMY4-YU) 

DO 3 7 1 1 = LL * NQ 

371 SUM=SUM*Y(I) 

SUMYl=SUMY+SUM 
DO 3 AO 1= l f NO 
XM0L1I I I = Y ( I) /SUMY1 
PERC 1 ( I ) = XMOL 1 ( I ) *100. 

XMOL ( I ) = Y ( I ) /SUMY 


CHEM 273 
CHEM 274 
CHEM 275 
CHEM 276 
CHEM 277 
CHEM 278 
CHEM 279 
CHEM 280 
CHEM 281 
CHEM 282 
CHEM 283 
CHEM 284 
CHEM 285 
CHEM 286 
CHEM 287 
CHEM 288 
CHEM 289 
CHEM 290 
CHEM 291 
CHEM 292 
CHEM 293 
CHEM 294 
CHEM 295 
CHEM 296 
CHEM 297 
CHEM 298 
CHE« 299 
CHEM 300 
CHEM 301 
CHEM 302 
CHEM 303 
CHEM 304 
CHEM 305 
CHEM 306 
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340 PERC< I )=XM0LII )*1G0. 

G SUM2=0» 

003421 = 1 » NQ 

I F ( ICODE ( l I . E 0 • 1 ) G0T0341 
FAC=XMOL( I ) 

IF( FAC .LT . l.E-73 IFAC=l.E-73 
FY(I>=Y(II*<C(I I ♦ ALOGI FAC I I 
G SUM 2=G SUM2+F Y ( I ) 

GOT 0 342 

341 FY( II = Y(I )*FORTI I ) 

GSUM2=GSUM2+FY( I ) 

342 CONTINUE 
350 BETA=0 • 

D085 1= 1 » NQ 

— CHECK IF THE MINIMUM HAS BEEN REACHED 

85 BETA=BETA+ABS(DELTI1> ) 

RE STA = 1 . 0 0000 00- U 
IFIABS(RESTA) .LT.XBETA) GOT 0800 
IFC NT .GE.MAXNTIGOT0600 
NT=NT+1 
GOT0300 
600 X8ETA=XBETA+0.001 
MAXNT=MAXNT+10 
NT = N T+ 1 
G0T0300 

C*** ******** ********************************** ************************** 

C ****** **************************************************************** 

C CONVERGENCE HAS BEEN ACHIEVED * 

C ******************************************** ****************** ******** 
C ******************************************** ************************** 

800 IF ( I PR I N T .EQ. 0) GG TO 1802 
PR I N T 1 6 » NT * U 


CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 

339 

CHEM 
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16 FORMAT* //I X, 'NT = NO. OF ITERATIONS REQUIRED =*I5,5X, CHEM 341 

1 ' U= X / Y= ' F 1 5 . 7 / ) CHEM 342 

PRINT21 89, ( J,BB< J) , J=1,MM) CHEM 343 

2189 FORMAT! IX, *BB( 'll ,» ) = 'F15.7> CHEM 344 

PRINT 201 , 8 E T A CHEM 345 

201 FORMAT! /I X , • BE TA= • F 1 5 . 7/ ) CHEM 346 

PRINT202 ,GSUM2 CHEM 347 

202 FORMAT! IX, 'FREE ENERGY FY(I) OF THE SYSTEM AT EQU IL I BR IUM* F 1 5. 7 ) CHEM 348 

PRINT203,P,T CHEM 349 

203 FORMAT! /I X , • PRE SSURE ( ATM ) = • FI 0 . 4 , 5 X , * T E MP( OK )= • F 13 .6/ I CHEM 350 

1802 XMWGA S=0 . CHEM 351 

00811=1 ♦ NN CHEM 352 

C CHEM 353 

C CALCULATE THE AVERAGE MOLECULAR WEIGHT OF THE GAS,XMWGAS CHEM 354 

C CHEM 355 

81 XMWGA S= XMWGA S+XMOL ( 1 1 *X MW ( 1 1 CHEM 356 

001911=1, NQ CHEM 357 

191 XMASS! I)=XMW(I)*XMOL(I) /XMWGA S CHEM 358 

CPM X=0 • CHEM 359 

0078 11= l, NN CHEM 360 

781 CPM X=C PM X+C P ! I ) *X MOL ( l ) CHEM 361 

IF! [PRINT • EO • 0) GO TO 1803 CHEM 362 

PRINT 18,CPMX,W CHEM 363 

18 FORMAT! /1X,«HEAT CAPACITY OF THE MI XTURE • t IX , • I N CALORIES PER GRACHEM 364 

IM MOLE = 'FIC. 5 ,10X, 'MASS F LUX ! L RS/ FT2S EC ) = e F10 . 5 > CHEM 365 

PRINT17, XMWGAS CHEM 366 

17 FORMAT! / 1 X , • MOL ECUL AR WEIGHT OF THE GAS M I XTURE=' F 8 . 5 » CHEM 367 

1803 XBE T A=CR I T CHEM 368 

KP T = KP T ♦ 1 CHEM 369 

C CHEM 370 

C CHEM 371 

C REOIFINE MOLE BASIS. THIS OPERATION IS PERFORMED AFTER CHEM 372 

C THE FIRST EQUILIBRIUM CALCULATION. THIS IS DONE TO MAKE CHEM 373 

C THF MOLES OF YU) CALCULATED BASED ON ONE MOLE OF VIR- CHEM 374 
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PLASTIC COMPOSITF COMPATIBLE WITH THE ACTUAL NUMBER 
OF- MOLES FLOWING THROUGH THE POROUS MATRIX. THIS OPERA- 
TION IS PERFORMED ONLY ONCE. 


IF( T.NE.XTJG0T0823 

PROPORTION THE MOLES OF FLOWING GASES IN DIRECT 

RELATION TO THEIR EQUILIBRIUM MOLE FRACTION. 

R IN=0. 

SUM=0. 

D0821I=1 ,NQ 

I F ( I CODE ( II.EQ.1IGOTO8210 
Y ( I )=W/XMWOAS*XMOL( I ) 

SUM= SUM+ Y ( I ) 

GOTO 821 

8210 Y( I ) = XMOL ( I I *SUM 

RIN=RIN»XMOL ( I ) *XMW( I ) /XMWGAS 
821 CONTINUE 

R IN = THE RATIO OF THE MASS OF THE SOLID MATRIX 

TO THE MASS OF THE FLOWING GASES AT THE 
PREVIOUS TEMPERATURE STATION. 


ROUT= THE SAME RATIO AT AN INCREMENT OF TEMPERA- 
TURE DOWN THE FLOW FIELD. 

TO INITIALIZE, POUT IS SET EQUAL TO RIN. 


ROUT=R IN 


RECOMPUTE THE MATERIAL BALANCE CONSTRAINTS. 


CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 
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CHEM 

382 

CHEM 

383 

CHEM 
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CHEM 

385 

CHEM 

386 

CHEM 

387 

CHEM 

388 

CHEM 

389 

CHEM 
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CHEM 

391 
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392 
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393 

CHEM 

394 
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CHEM 

396 
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CHEM 

398 

CHEM 

399 

CHEM 
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401 

CHEM 
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CHEM 
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CHEM 
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0(J 79 J=1 , MM 
BB( J ) =0 . 

00791=1 ,NQ 

79 9B( J)=BB( J)+AA(I, J)*Y( II 

G0T0171 

823 R0UT=C. 

008241 = LL » NO 

824 R0UT=R0UT+XM0L< I ) *XMWII ) /XMWGAS 
R AT 1 0= ( l • +R 1 N ) / ( 1.+R0UT) 

RATIO IS THE FRACTION GAIN OR LOSS OF SOLID 
MATERIAL BY THE FLOWING GASES. 

W=W*R AT I 0 
R I N=ROUT 

171 TABLEIKPT, 1 l=T 
TABLEIKPT ,3) = XMWGAS 
TABLEIKPT, 4)=W 
PRINT 172, W,T 

172 FORMAT! IX, • W= 'E 1 5 . 7 , E 20. 7 ) 

TABLEIKPT, 5)=CPMX 


CALCULATION AND STORAGE OF THE INDIVIDUAL MASS 
FLUXES AT EVERY TEMPERATURE IN VARIABLE FLUX(J,I) 
FOLLOWS. THESE STORED VALUES ARE USED SUBSEQUENT- 
LY TO COMPUTE THE DERATIVE OF FLUX(J,I»WITH TEM- 
PERATURE, WHICH IS DF LUX ( J , I ) . THIS VARIABLE IS 
USED TO COMPUTE A VARIABLE CALL REACT, WHICH ACCOUNTS 
FOR THE HEAT EFFECTS OF THE CHEMICAL REACTIONS. 

NOTICE THAT THE KFACT TERM HAS TO BE MULTIPLYED BY 
THE GRADIENT OF TEMPERATURE WITH DISTANCE. THIS OPE- 
RATION IS PERFORMED IN THE MAIN PROGRAM. 
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418 
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420 
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C 

I F ( l PRINT • EQ • G) GO TO 1804 
PR I Al T204 

204 FORMAT! //6X , • I • ,21X, • Y( I ) *,9X, • MOLE FRACT ION* ,5X, 

1 'MAS S FRACTION* ) 

1804 0017121 =1 * NO 

F L UX( KPT , 1 ) =W*XMA SS ( I ) 

I F ( I PR I NT .EO. 0) GO TO 1712 

PR I NT 19, 1 , SPC I E 1 ( I J ,SPCIE2( I ) ,Y! I ) , XMOL (II, XMASS ( I ), FLUX (KPT, I ) 

1712 CONTINUE 

19 FORMAT! IX , I 6 , 3X , 2 A3 * 2 X ,4E 1 8 . 7 ) 

00171 31=6, KOS 
I 1 = 1-5 

THE UNITS OF FLUX(KPT,I) ARE LBS/FT2-SEC • 

1713 TABLEIKPT, I )=XMOL(T II 
IF( T »GE .TMA X) G0T0333 
T=T + T I NC 

GO TO 500 

THE MOLE FRACTIONS AT EVERY TEMPERATURE UP TO TMAX 

HAVE BEEN STORED. THESE STORED VALUES WILL NOW BE 
USED TO COMPUTE THE DERIVATIVE OF FLUX. THAT IS, THE 
RATE OF CHANGE OF THE MASS FLOW RATE WITH TEMPERATURE. 

THIS RATE OF CHANGE WILL BE STORED IN VARIABLE DFLUXIJ,!). 

THE UNITS OF OFLUX(J,I) ARE, LBS/FT2-SEC OK 

333 KPT3=KPT-3 

TINC60=l./(60.*TINC» 

KOUN T = ? 

00171 7 J = 1 , K PT3 

0017 161 =1 , NO 

IF ( J .GT.2IG0T0I 715 
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456 
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IF! J .GT. 1 IG0T01714 CHEM 

DFLUX( J,I )-! 1 ./( 60.*TINC1 ) * ( -1 3 7 . *FLUX ( J , I) +300 ,*FLUX ( J ♦ 1 , I ) CHEM 

1-300.*FLUX( J + 2,I 1+200. *F LUX! J + 3 , I I -7 5 .*F LUX ! J+4, I ) CHEM 

2+12.*FLUX( J + 5,I I) CHEM 

G0T01716 CHEM 

1714 DFLU X( J, I > = TI NC60*(-12.*FLUX( J-l , I) -6 5 . *FLUX ( J , I I +1 20 . *FLUX ( J+ 1, II CHEM 

l-60.*FLUX( J + 2,I I +20. *F LUX! J+3 , 1 1-3. *FLUX< J+4, I I I CHEM 

GO TO 1716 CHEM 

1715 f)FLUX( J,I >=TINC60*!3.*FLUX! J-2 , I) -30 . *F LUX l J- 1 , I) -20 .*FLU X ( J , I) CHEM 

1+60.*FLUX( J+l,l )-15.*FLUX! J+2 , I) +2 . *F LUX ( J+3 , I ) > CHEM 

1716 CONTINUE CHEM 

1717 CONTINUE CHEM 


CALCULATE THE HEAT TERM NECESSARY FOR GROUP 

IN THE MAIN PROGRAM. 

D01722J=1,KPT3 
HEA T=0. 

PRINT 1 71 8 , J 

1718 FORMAT! IX, • J= • I 3 / > 

PRINT 1719,(0FLUX( J, I) ,I=1,NQ) 

1719 FORMAT! IX, 8E15. 71 
T= TABLE! J, 1 I 
CALL THERM1 
0017211=1, NO 

IF! I .L E . NN ) GO TO 1 72 0 

HEA T=HEAT+DFLUX< J ,1 ) *ENT! I) *< 1 . -EPS I /XMW! I) 
GOTO 1721 

1720 HEAT=HEAT + OFLUX! J, I I *ENT( II *EPS/XVW< I I 

1721 CONTINUE 

1722 TABLE! J ,2 )=HEAT 

C THE UNITS OF HEAT ARE RTU/F T2 -SEC OF 

R F TURN 
ENO 


CHEM 489 
CHEM 490 
CHEM 491 
CHEM 492 
CHEM 493 
CHEM 494 
CHEM 495 
CHEM 496 
CHEM 497 
CHEM 498 
CHEM 499 
CHEM 500 
CHEM 501 
CHEM 502 
CHEM 503 
CHEM 504 
CHEM 505 
CHEM 506 
CHEM 507 
CHEM 508 
CHEM 509 
CHEM 510 
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SUBROUTINE FR NERG ( T , NQ) 

THIS SUBPROGRAM CALCULATES THE FREE ENERGY FUNCTION 
AND THE HEAT CAPACITY OF EACH INDIVIDUAL SPECIE. 

COMMON/KB /AI ( 30 ) ♦ BI ( 30) ,C I C 30 ) ,0 I (30 ) ,E I C 30 ) , F I { 30 ) , G I ( 30 », 
1AI I ( 30) ,BI 1(30) ,CI I (30) ,DI I (30) ,EI 1(30) , FI I (30) ,GI 1(30), 

2 TLOW ( 30) 

COMMQN/KGG /FORT! 30) t CP(30) 

D02I=1,NQ 

IFIT.GT.TLOWI I ) IGOTOl 

FORT ( I ) =A 1 1 ( I |*( I.-ALOG(T) )-C U ( E 1 1 (I)/ 20 . 1 *T *DI I II) /1 2 . )*T + 
1C II( I 1/6. 1*7+811 ( I 1/2. )*T+FII (I l/T-GIItl) 

CP( I I = A I T ( I ) + (( (Eli ( I )*T+OII( II )*T+C 1 1 ( I n*T+BIU I)»*T 

G0T02 

1 FORTH > = A I f I )*( l.-ALOGI T ) ) - ( ( ( ( E I ( I » / 20 . >*T +D l ( I )/I2. )*T* 
ICI( I )/6. )*T+BI( I )/2.)*T+FI< II/T-GKI I 

CPI I ) = AI(I ) + ( ( (El ( I)*T>DI< I I l*T+Cl( I ) )*T + BI C I ) )*T 

2 CONTINUE 
RE TURN 
END 


FRNE 

1 

FRNE 

2 

FRNE 

3 

FRNE 

A 

FRNE 

5 

FRNE 

6 

FRNE 

7 

FRNE 

8 

FRNE 

9 

FRNE 

10 

FRNE 

11 

FRNE 

12 

FRNE 

13 

FRNE 

1 A 

FRNE 

15 

FRNE 

16 

FRNE 

17 

FRNE 

18 

FRNE 

19 

FRNE 

20 
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SUBROUTINE MA TI N V ( A ,N ,B , M) 


MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 


DIMENSION A (6,6) ,R<6,1) , IPIV0K6) ,INDEX(6,2) 

EQUIVALENCE (IROW,JROW), ( ICOLUM, JCOLUM ) , ( AMAX, T, SWAP ) 

INITIALIZATION 

5 I SC A LE=0 

6 R 1= 10 . O’M' I 8 

7 R 2= 1 . O/Rl 

10 DE TE RM= 1 . 0 
15 00 20 J= 1 , N 

20 I P I VO T( J ) =0 
30 DO 550 1 = 1, N 

SEARCH FOR PIVOT ELEMENT 

40 AMA X = 0» 0 

45 DO 105 J = 1 , N 

50 IF ( IPI VOT( J ) - 1 ) 60,105,60 

60 DO 100 K= 1 , N 

70 IF ( (PI VOT(K)-l ) 80, ICO, 740 

80 IF ( ABS( AMAX)-ABS(A( J,K) ) >85,100,100 

85 IR0W= J 

90 IC0LUM = K 

95 AMA X = A ( J , K ) 

100 CONTINUE 
105 CONTINUE 


MATI 

l 

MAT I 

2 

MATI 

3 

MATI 

4 

MATI 

5 

MATI 

6 

MATI 

7 

MATI 

8 

MATI 

9 

MATI 

10 

MATI 

11 

MATI 

12 

MATI 

13 

MATI 

14 

MATI 

15 

MATI 

16 

MATI 

17 

MATI 

18 

MATI 

19 

MATI 

20 

MATI 

21 

MATI 

22 

MATI 

23 

MATI 

24 

MATI 

25 

MATI 

26 

MATI 

27 

MATI 

28 

MATI 

29 

MATI 

30 

MATI 

31 

MATI 

32 

MATI 

33 

MATI 

34 
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IF (AMAX)UO, 106,110 
106 DE TERM-0. 0 
I SC ALE=0 
GO TO 740 

110 IP I VOT ( IC0LUM)=IPIV0T<IC0LUM>+1 

INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 

130 IF ( IROW-ICOLUMJ 140,260,140 
140 QE TER M=-DE TERM 
150 DO 200 L = l , N 
160 SWAP=A( rROW,L) 

170 A( IROW»LI=AI ICOLUMtLI 
200 A ( ICOLUM.L )=SWAP 
205 IF!M)26C,260,210 
210 00 250 L=1 »M 
220 SWAP=8( IROW.L) 

230 8! IROW,L)=B< ICOLUM,L> 

250 B ( ICOLUM.L) =SWAP 
260 INOEXI I , l)=IROW 
270 INDEX! I, 2) = IC0LUM 
310 PIVOT = A! ICOLUMtICOLUM) 

SCALE THE DETERMINANT 

1000 P I VO T I =P I VO T 

1 CO 5 IF! ABS! DETERM )-R 1)1030,1010.1010 
1C 10 DETERM=OETERM/ri 
I SC A L E = I SC A L E + 1 

IF! ABS! DETERM I -R 1 ) 1060,1020,1020 
1020 DETERM=DETER.M/R1 
I SC ALE = I SC A LE + 1 

GO TO 1 060 

1030 IF! ABS! DETERM )-R2 ) 1040, 1040, 1 06G 


MAT I 

35 

M ATI 

36 

MAT I 

37 

MAT I 

38 

MAT I 

39 

MAT I 

40 

MAT I 

41 

MATI 

42 

MAT I 

43 

MATI 

44 

MATI 

45 

MATI 

46 

MATI 

47 

MATI 

48 

MATI 

49 

MATI 

50 

MATI 

51 

MATI 

52 

MATI 

53 

MATI 

54 

MATI 

55 

MATI 

56 

MATI 

57 

MATI 

58 

MATI 

59 

MATI 

60 

MATI 

61 

MATI 

62 

MATI 

63 

MATI 

64 

MATI 

65 

MATI 

66 

MATT 

67 

MAT! 

68 
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1040 

1050 

1060 
10 70 

1080 


1090 

2000 


2010 

320 


330 
340 
350 
355 
360 
3 70 


380 
390 
4 00 


OE TERM=DE TERMER 1 

MAT I 

69 

ISCALE = ISC ALE-1 

MAT I 

70 

FF( ABS( OETERM ) -R 2 11 050, 1 050 , 1060 

MAT I 

71 

DETERM=DETERM*R1 

MAT I 

72 

ISCALE=ISCALE— 1 

MAT I 

73 

IF I AB SI PI VDT I )-Rl) 1090,1070,1070 

MAT I 

74 

P I VOTI=PI VOTI /R1 

MAT I 

75 

I SC A L£= I SCALE +1 

MAT I 

76 

IF <ABS( PI VOTI >-Rl 1320,1080, 1080 

MATI 

77 

P IVOTI=Pl VOTI /R 1 

MAT I 

78 

rSCALE=ISCALE + l 

MATI 

79 

GO TO 320 

MATI 

80 

IFIABSt PI VOTI )-R 2 I 2000,2000, 320 

MATI 

81 

PI VOTI =PI VOTI *R1 

MA TI 

82 

I SC A LE = I SC A LE - 1 

MATI 

83 

IF (ABS( PIVOT I »-R 2 12010, 2010,320 

MATI 

84 

PIV0TI=PIV0TI*R1 

MATI 

85 

I SCALE=ISCALF-1 

MATI 

86 

OETERM=OETERM*PI VOTI 

MATI 

87 


MATI 

88 

DIVIDE PIVOT ROW BY PI VCT ELEMENT 

MATI 

89 


MATI 

90 

A ( IC0LUM,IC0LUM)=1.0 

MATI 

91 

DO 350 L=1 , N 

MATI 

92 

At ICOLUM,L > = A ( IC0LUM,L) /PIVOT 

MATI 

93 

IF C M ) 380,380,360 

MATI 

94 

DO 370 L - 1 , M 

MATI 

95 

B( ICOLUM.L »=BIICOLUM,L) /PI VOT 

MATI 

96 


MATI 

97 

REDUCE NON -PIVOT ROWS 

MATI 

98 


MATI 

99 

DO 550 L 1 = l , N 

MATI 

100 

IFt L 1- I CULUM) 400,550,400 

MATI 

101 

T=A(L1, ICOLUM) 

MATI 

102 
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420 

A(Ll*IC0LUM)=G«0 

MAT I 

103 

430 

DO 450 1 = 1, N 

MATI 

104 

450 

A ( L 1 , L 1 =A (Li»LI-ACI COLUM* LI *T 

MATI 

105 

455 

I F ( M ) 550,550,460 

MATI 

106 

460 

DO 500 L=1,M 

MATI 

107 

500 

9(LI,U=B(L1,L»-B( l COLUM, L)*T 

MATI 

108 

550 

CONTINUE 

MATI 

109 



MATI 

110 


INTERCHANGE COLUMNS 

MATI 

111 



MATI 

112 

600 

DO 710 1=1, N 

MATI 

113 

610 

L=N+1-I 

MATI 

114 

620 

IF ( I NOE X(l,l) -I NOE XI L,2> >630,710,630 

MATI 

115 

630 

JROW=INDEX(L,l) 

MATI 

116 

640 

JC0LUM= INDEX(L,21 

MATI 

117 

650 

DO 705 K=1,N 

MATI 

118 

660 

SWAP=A ( K, JROW) 

MATI 

119 

670 

A I K, JR0W)=A(K, JCOLUMI 

MATI 

120 

700 

A ( K » JCOLUM )=SWAP 

MATI 

121 

705 

CONTINUE 

MATI 

122 

710 

CONTINUE 

MATI 

123 

740 

RE TURN 

MATI 

124 


END 

MATI 

125 
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A3LATIN1 ANALYSIS NOMENCLATURE 


MAIN 

AA(I,J) : Formula number. Gives the gram atoms of 

element J in species I. 

AI . . «GI : These are the seven empirical constants for 

the high temperature fit (1000°K-6000°K) for the free energy 
functions. The first five constants (AI through El) are 
used in the heat capacity fit. 

All . . ,GII : These are the seven empirical constants for 

the low temperature fit (300°K-1000°K) for the free energy 
function. 

All. . ,A66 : These are the six empirical constants for 

the enthalpy fit of the constituent elements (300 °k-1000°K) . 

ALPHA : Viscous coefficient in Darcy's equation (FT -1 ). 

AVGFW : Average molecular weight of the gas mixture. 

BETA : Inertial coefficient in Darcy's equation (1/FT 2 ) 

CDO : Thermal conductivity of the char (BTU/FT-sec-°F) 

CDOV : Thermal conductivity of the virgin material, 

(BTUft/sec-°F) . 

CPBl: Total rate of heat absorbed by the gases in the 

char zone (BTU/ft^-sec) . 

CPB2: Total rate of heat absorbed by the solids in the 

char zone (BTU/ft -sec) . 

CPS: Heat capacity of the char (BTU/lb-°F) . 
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CPV: Heat capacity of the virgin material (BTU/lb-°F) . 

DCDO : Rate of change of the thermal conductivity of the 

char with temperature (BTU/ft-sec-°F 2 ) . 

DCDOV : Rate of change of the thermal conductivity of 

the virgin material with temperature (BTU/f t-sec-°F 2 ) . 

DELTF : Differential change in temperature in °F for 

an increment of distance H. 

DELTK : Differential change in temperature in °K for an 

increment of distance H. 

DELTP : Pressure drop across the char (lbs/ft 2 ) . 

DELZ : Increment of distance (in feet) . 

DISTAN : Char thickness in feet. 

DT : Temperature gradient (°F/ft) . 

PTC ; Temperature gradient in the char (°F/ft) . 

DTCC: Temperature gradient in double precision arith- 

metic in the char (°F/ft) . 

PTC I : Temperature gradient in the virgin material 

(°F/ ft) . 

EK : Potential parameter /Boltzman constant. 

EMIS : Char emissivity. 

EPS ; Porosity of the char (f t 2 voids/ft 2 total). 

FW ( I ) : Molecular weight of species I. 

GAS CP : Is the heat capacity of the gas mixture in 

(BTU/lb-°F) . 

GROUP : This is the bracketted term of Equation (3- 36 ) 

(1/ft) . 

H: Runge-Xutta step size (in feet) . 
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Hll : Runge-Kutta step size in double precision arith- 

metic (in feet) . 

HCHAR ; Percent of total heat absorbed in the char zone. 

HDECOM : Percent of total heat absorbed in the decompo- 

sition zone. 

HGASs Percent of heat absorbed by the gas in the char 

zone. 

HI : Initial value of Runge-Kutta step (in feet) . 

H REACT ; Percent of heat absorbed by the reactions in 
the char zone. 

HSOLID ; Percent of heat absorbed in the solids in the 
char zone . 

ICODE (I) ; Is a code to identify whether a species is a 
gas, or a solid. If ICODE is zero, the species is a gas. If 
ICODE is one, the species is a solid. 

IMAX : Number of data points for EK. 

ITEMP : Total number of temperature points stored in 

temperature profile. 

JCODE ( J) : Is a code used to determine whether the 

reference state of the constituent element J is in the gas or 
in the solid state. 

JS : Total number of slices in which the char is divided 

for the solution of the momentum equation. 

Kl : Is a counter for the number of temperature points 

stored during the solution of the energy equation. 

MM : Is the number of elements. 

NC: Number of gas species read in. 
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NDATA: Number of collision integral points tabulated 

versus XTKE . 

NN : Number of gas species in the system. 

NN5 : Is the total number of variables stored in Table 

(I,J). 

NNS : Is the number of solid species in the system. 

NQ : Is the total number of gas and solid species in 

the system. 

NS ; Is the total number of gas and solid species read 

in. 

OMGA ; Interpolated value of XTKE. 

P: Pressure in lbs/ft 2 . 

PL : Pressure at the front surface of the char (lbs/ft 2 ) 

Q: Is the rate of heat absorbed in the decomposition 

zone in (BTU/ft 3 -sec) . 

Q2 : It equals Q/DTC (BTU/f t 2 -sec-°F) . 

QA : Aerodynamic heating rate (BTU/f t 2 -sec) . Equals 

QL+QR . 

QCZ : Heat flux in the char zone (BTU/ft 2 -sec) . 

QCZI : Heat flux in the decomposition zone (BTU/ft^-sec) 

QL : Is the total heat flux at the surface (BTU/ft 2 -sec) 

QR : Is the rate of re-radiation from the surface of 

the char (BTU/ft 2 -sec) . 

REAC1 : Is the total rate of heat absorbed by the chemi- 

cal reactions (BTU/ft 2 -sec) . 

RE AC 2 ; Heat absorbed by the chemical reactions (BTU/f t 2 


sec) . 
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REACT ; Equals REAC2/DTC (BTU/ft 2 -sec-°F) . 

RHO : Bulk density of the virgin material (lbs/ft 3 ) . 

ROCHA R : Bulk density of the char material (lbs/ft 3 ) . 

RR : Gas constant: 1.98726 (BTU/lb-mole°R) . 

SI. . ,S6 ; These are six empirical constants for the 
enthalpy fit of the constituent elements (1000°K-6000°K) . 

SIG : Collision diameter (Angstrongs) . 

SIGMA : Stephan-Boltzman constant (4.81 x I0“^- 3 BTU./ft 2 - 

sec-°F 4 ) . 

T1 (Kl) ; Variable in which the temperature profile is 
stored versus distance Z. Kl is a counter. 

TC : Temperature in °F. 

TCHAR : Temperature at which all the virgin material 

has degraded to gas and char. (°K) . 

TFMAX : Maximum specified temperature of the front 

surface of the char (°F) . 

THICK : Is the thickness of the char zone, in inches. 

THICK1 : Is the thickness of the decomposition zone in 

inches . 

TK : Interpolated value of the temperature (in °K) at 

a distance Z in the char. 

TL ; Front surface temperature of the char (°F) when the 
temperature profile has been defined. 

TLOW (I) : Maximum temperature of low temperature fit for 

species I. (°K) . 

TO : Initial temperature (°F) at Z=0. 

TP REV: Temperature (°F) at the previous step. 
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TTTT: This is the temperature (°F) in double precision 

arithmetic. A provision has been made in the program that if 
the step size is less than 8. xlO“^ ft., the Runge-Kutta 
analysis is calculated in double precision arithmetic to 
reduce round-off error. 

TVAR: Temperature in °K. 

TVIS ; Interpolated value of the temperature profile 
(°F) at a distance Z along the char. 

VISCOS : Viscocity of the gas (in centipoise) . 

VR ; Surface recession velocity (ft/sec) . 

W: Mass flux based on the total area (lbs/ft 2 -sec) . 

WI ; Mass flux of the gases entering the char based on 
the total area (lbs/ft -sec) . 

XTKE ; Product of the temperature in °K and 1/EK. 

YCOMP (I , J) : Array to store the concentration profile. 

Y (I) ; Mole fraction of species I. 

YI (I) : Initial mole fraction of species I. 

Z: Distance along the decomposition zone or the char 

zone (ft) . 

ZINC : Increment of distance at which the temperature 

profile is stored (ft) . 

ZMAX : Maximum allowable thickness of the char zone. 

(Usually 0.25 inches). 

ZZ : Distance of Z in double precision arithmetic (ft) . 

INDPTH 

This subroutine calculates the physical properties of 
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the virgin material and the pyrolysis gases. 

A. . ,E : These are five empirical constants for the heat 

capacity of the virgin material. 

TELTKK : Increment of temperature (°K) . 


PHMCR 

This subroutine computes the heat absorbed by the decom- 
position of the phenolic resin and phenolic microballoons. 

AREA ; This is the area generated by a plot of calories 
versus temperature (°K) by the decomposition of phenolic 
resin during a differential thermal analysis (1350 cal/°K) . 

AREA1 : This is the area generated by a plot of calories 

versus temperature (°K) by the decomposition of phenolic 
microballoons during a differential thermal analysis (1464 
cal/°K) . 

A(I) . . .E (I) : These are five empirical constants used to 

fit a curve through a portion of the plot of calories versus 
temperature for the phenolic microballoons. 

DT : Is the temperature difference in °K from a base 

temperature of 350°C(623°K) . Below 350°C, decomposition of 
the virgin material has not been initiated. 

PELT ; Is the temperature increment (°K) for an increment 
of the Runge-Kutta Step. 

H: Is the height (in calories) for the plot of calories 

versus temperature (°K) . 

K6 : Is a code used to bypass the read statements. When 
K6 is one, the data is read in. When K6 is two, the read 
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statements are bypassed. 

NUMBER ; Is the number of fits used for the plots of 
calories versus temperature. 

QMICRO : Heat absorbed by the decomposition of the 

phenolic microballoons (calories/gram) . 

QPHNLC ; Heat absorbed by the decomposition of the 
phenolic resin (calories/gram) . 


NYLON ; 

This subroutine calculates the heat ab sorbed by the 
decomposition of nylon. 

AREA ; This is the area generated by a plot of calories 
versus temperature (°K) for the decomposition of nylon (1122 
calories / °K) during a differential thermal analysis. 

QNYLON ; Heat absorbed by the decomposition of nylon 
(calories/gram) . 

DNSITY ; 

This subroutine calculates the density change of pheno- 
lic nylon and the mass flux of the pyrolysis gas. 

A ( J) ; Frequency factor of reaction J (sec - ^) . 

COMPS T ; Is an integer variable giving the number of 
composite in the ablator. In the case of phenolic nylon, it 
is three. 

DELFLX (I) ; Is the change in mass flux of composite I 
due to degradation (lbs/f t 2 -sec) . 

DRHO; Differential change in density due to degradation. 



This variable is used as a criteria for stability while the 
solution is marching through the decomposition zone (lbs/ft 3 ) . 

DRHODT (I) : Rate of gas generation by the degradation of 

composite I (lbs/f t 3 -sec) . 

E ( J) ; Energy of activation of reaction J used to des- 
cribe the degradation of the composite (Joules/gram-mole) . 

MASFLX (I) ; Rate of change of mass flux due to the 
degradation of composite I (lbs/ft -sec) * 

MA3FRC (I) : Mass fraction of each composite in the mix- 

ture of virgin' material. 

N REACT : Number of pseudo-order kinetic reactions used 

to describe the decomposition of the virgin material compo- 
site. 

RATER (J) : Is specific reaction velocity of reaction 

J (lbs/ft 3 -sec) . 

RHO: Bulk density of the composite (lbs/ft 3 ) . 

RHOC(I) : Residual density of composite I (lbs/ft 3 ) . 

RHOCC(I) : Lowest value of residual density of composite 

I (lbs/ft 3 ) . 

RHOI (I) ; Initial density of composite I (lbs/ft 3 ) . 

RHOII ; Initial density of the virgin composite (lbs/ 

ft 3 ) . 

RHOT(I) : Density of composite I at temperature T 

(lbs/ft 3 ) . 

VOLFRC (I) : Volume fraction of each composite I. 



432 


CHARPR : 

This subroutine calculates the effective thermal con- 
ductivity and the heat capacity of the char. 

T: Temperature in °R. 

INTRPL : 

This program performs Lagrangian interpolation with non- 
equal step size between points. 

F: Dependent variable array. 

IMAX : Number of points in array. 

SOM ; Value of the interpolated dependent variable. 

VAR : Value of X for which corresponding value of F is 

derived by interpolation. 

X: Independent variable array. 

THERM1 : 

This subroutine calculates the heat of formation of each 
chemical specie, the heat capacity of the mixture and the heat 
absorbed by the chemical reactions . 

CPDT1 : Is the sensible enthalpy gain by the constituent 

elements from a reference temperature of 298.16°K (calories/ 
gram-mole) . 

CPMX: Heat capacity of the gas mixture (calories/gram- 

mole °K) . 

ENT1 (I) : Enthalpy of species I (calories/gram-mole) . 

ENT (I) : Heat of formation of species I (calories/gram- 


mole) . 



433 


HEATl : Rate of heat generated, or absorbed, by the 

chemical reactions (calories/cm^-sec) . 

KINET : 

This program computes the rate of reaction of each che- 
mical species . 

AEF (J) : Activation energy of reaction J (calories/ 

gram-mole. 

AF ( J) : Frequency factor of reaction J (sec"- 1 ) . . 

DELZZ : Runge-Kutta step size (cm.) . 

DLFLUX (I) : Differential change in molal flux due to the 

chemical reaction of species I. This variable is used for 

the purpose of controlling the step size (gram-mole/cm 2 -sec) . 

FLUXMO (I) : Molal flux of each chemical species I (gram- 

2 

moles/cm -sec) . 

HEAT : Rate of heat generated or absorbed by the chemi- 

cal reactions (BTU/ft 3 -sec) . 

K2 : Is a counter to keep track of the number of tempe- 

rature points stored in Table (I, J) . 

K7 : When K7 is one, initialization occurs and subroutine 

INOUT is called. When it is 2, this is bypassed. 

KOS : Total number of variables stored in the Table (I,J) 

array. 

KSP : Number of gas components in the chemical system. 

KSP1 : Number of gas and solid species in the chemical 

system. 

NPEX (I , J) : Power on the concentration of product I in 
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reaction J. 

P: Pressure of the system in atmosphere. 

PERCE ( J) : Mole percent of species J. 

PSC(I,J) : Stochiometric coefficient of the product I in 

reaction J. 

R: Gas constant (82.06 cm^-atm/gram-nole °K) . 

RATE ( J) ; Rate of formation of species I (gram-moles/ 
cia J -sec) . 

RATER (J) : Specific reaction velocity of reaction J 

(gram-moles/cm^-sec) . 

RK ( J) : Reverse reaction rate constant of reaction J. 

RR : Gas constant (1.98726 calories/gram-mole °K) . 

SF ( j) ; Power on the temperature of the Arrhenius type 
kinetic expression. 

SPCIE1 ( J) : Specie identification name. 

T: Temperature (°K) . 

TABLE (I, J) : Is an array where I represents the number 

of variables stored and J the number of temperature points. 
The variables stored are in the following order: T, HEAT, 

WNEW, AVGFW AND KSPl values of Y1(I). 

TESS : Is the absolute maximum value of DLFLUX(I) . This 

variable is used in controlling the step size for stability. 

TF : Temperature (°F) . 

TPREV : Is the previous value of the temperature (°K) . 

WNEW : Total mass flux of the gases (lbs/ft 2 -sec) . 

7MW f ; Molecular weight of species I. 

Y1 (I) : Mole fraction of species I. 
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INPUT : 

This subroutine reads in the kinetic data. 

AK (J) ; Empirical constant for the fit of the equili- 
brium constant with temperature. 

BK ( J) ; Empirical constant for the fit of the equili- 
brium constant with temperature. 

EKMAX(J) : Maximum allowable value for the equilibrium 

constant of reaction J. 

EKMIN ( J) : Minimum allowable value for the equilibrium 

constant of reaction J. 

NCOEF ( J) ; Is the sum of the stochiometric coefficient 
of the products minus the reactants. 



INPUT FORMAT: 


A Typical Input for Equilibrium Flow. * 


CARD-1: FORMAT 

(516) 


COLUMNS : 

NC = 19 



1-6 

MS = 1 



7-12 

MM = 4 



13-18 

KODE = 1 



19-24 

KEY = 2 



25-30 

CARD-2 : FORMAT 

(F10.3, 

10X, 4F10 

.3) 

PL = 2160. 



1-10 

TO a 500 



21-30 

EPS = .8 



31-40 

ZL « .35 



41-50 

HI a .000007 



51-60 

CARD- 3: FORMAT (3EL5 . 5, 

F15.5) 


ALPHA = .5E9 



1-15 

BETA = . 5E5 



16-30 

SIGMA = . 48E-12 



31-45 

EMIS = .90 



46-60 

CARD- 4 FORMAT 

(3E10.3) 



DTC = 3000. 



1-10 

TCHAR = 1073. 



11-20 

VT a I.e-3 



21-30 


*3ee Table B-2 for the complete input data set. 
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COLUMNS 

CARD- 5 FORMAT (6E10.3, 13) 


Sl(l) = 1.363250E0 

1-10 

S2 (1) = 1.85605E-3 

11-20 

S3 (1) = -7 . 6675E-7 

21-30 

S4 (1) = . 151043E-9 

31-40 

S5 (1) = -1.139E-14 

41-50 

S6 (1) = - 6 . 46972E2 

51-60 

JCODF.(l) = 1 

61-63 

CARD-6 FORMAT (6E10.3) 


All (1) = - . 712442E0 

1-10 

A22 (1) = 7.34065E-3 

11-20 

A33 (1) = -5.5262E-6 

21-30 

A44 (1) = 1.51400E-9 

31-40 

A55 (1) = -2 . 382E-14 

41-50 

AG6 (1) = -6 . 80533E1 

51-60 

CARD-5 and CARD-6 are read 

sequentially MM times 

as is specified in CARD-1. 

For this particular 

example MM = 4 . 


CARD-7 FORMAT (10X, 3E10 

.3. 2X, 2A3 , 14) 

TLOW (1) = 1000. 

11-20 

FW(1) * 1.008 

21-30 

YI(1) = . 73950 3E-7 

31-40 

SPCIE 1(1) = 

43-45 

SPCIE 2 (1) = H 

46-48 

ICODE(l) = 0 

49-52 
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CARD-8 

FORMAT (7E10.3) 

COLUMNS 

AI(1) = 

2.500000E0 

1-10 

BI(1) = 

0 . 

11-20 

CI{1) = 

0 . 

21-30 

DI(1) = 

0 . 

31-40 

EI(I) = 

0 . 

41-50 

FI(1) = 

2.547050E4 

51-60 

GI(1) = 

-4 . 6001E-1 

61-70 

CARD- 9 

FORMAT (7E10.3) 


All (1) 

= 2 . 500000E0 

1-10 

BII (1) 

= 0 . 

11-20 

CII(l) 

= 0 . 

21-30 

DII(l) * 

= 0 . 

31-40 

EII(l) > 

= 0 . 

41-50 

FII(l) : 

= 2 . 547050E-4 

51-60 

GII(l) 

= 4 . 6001E-1 

61-70 

CARD- 10 

FORMAT (4E10.3) 


AA (1/1) 

= 0 . 

1-10 

AA (1,2) 

= 1. 

11-20 

AA d/ 3) 

= 0 . 

21-30 

AA (1,4) 

= 0 . 

31-40 

CARD- 7, CARD 

-8, CARD-9 and CARD-10 are 

read in sequentially 

as a group. 

(NC+NNS) number of times. 

Only the data for 

Specie 1, in 

this case hydrogen atoms, 

is presented. 
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COLUMNS 

CARD- 1 1 FORMAT (2F15.5) 

EK (1) = 33.3 1-15 

SIG(l) = 2.986 16-30 

CARD-11 is read NC number of times as specified by 
CARD-1. 

CARD- 12 FORMAT (16) 

NDATA = 34 1-6 

CARD- 13 FORMAT (2F15.5) 

XTKE(l) =0.30 1-15 

ZOMGA(l) = 2.785 16-30 

CARD-13 is repeated NDATA number of times as specified 
by CARD-12. 

CARDS - 1 through 13 are read in the MAIN program. 

These cards define the physical conditions of the system. 

In addition they provide the thermodynamic data and the 
physical constants for the pyrolysis species. CARDS-14 
through 19 provide the thermophysical information for the 
virgin material and also the kinetic data for the degrada- 
tion of the polymer. 

CARD-14 FORMAT (5E12.6) 


A = 

0 . 37000070E0 

1-12 

B = 

0 . 7367133E-4 

13-24 

C = 

0 . 1532513E-5 

25-36 

D = 

- . 1962704E-8 

37-48 


E 


. 8857809E-12 


49-60 
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C7RD-14 is read in subroutine INDPTH. 

CARD- 15 FORMAT (5E12.8) COLUMNS 

A(l) = 0.10561790E0 1-12 

B (1) = -1 . 836062E-2 13-24 

C(l) = 1.7580490E-3 25-36 

D (1) = -1.678598E-5 37-48 

E (1) = 4.7310570E-8 49-60 

CARD-16 FORMAT (5E12.8) 

Al(l) = 35642660E-1 1-12 

Bl(l) = 4 . 5790730E-2 13-24 

Cl(l) = 1 . 2298170E-4 25-36 

Dl(l) = - . 8277667E-7 37-48 

El(l) = - . 2279748E-7 49-60 

CARD-15 and CARD-16 are read sequentially four times 
in subroutine PHMCR. For a thorough explanation on the 
sources of data for the phenolic resin see Appendix C. 

CARD-17 FORMAT (216) 

COMPST = 3 1-6 

NREACT = 7 6-12 

Card-17 is read in subroutine DNSITY as well as CARDS 
18 and 19. 

CARD- 18 FORMAT (4X, 16, 3E10.8) 

1=1 5-10 

A (1) = 8.3000E14 11-20 

E(l) = 232.0 21-30 
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COLUMNS 

XN (1,1) = 1.0 31-40 

CARD-18 is read NREACT number of times and the index 
in I changes from 1 through 3 depending on whether the data 
is for nylon or for phenolic or for the microballoons. 

CARD- 19 FORMAT (3E10.3) 


RHOI(l) = 68.6 

1-10 

RHOC(l) = 5.145 

11-21 

MASFR(l) = 0.4 

21-30 


CARD-19 is repeated COMPST number of times. 

CARD-20 FORMAT (II) 

IPRINT = 1 

CARD-20 is read in subroutine CHEMEQ . 



TABLE B-2 . Typical Input Data for Equilibrium Analysis 


19 1 

2160. 

. 5000 
3000. 0E0 
1 • 363252E 01. 
- • 712442E9 7. 
3. 04369QE06. 
2 . 846085E 04. 
2.854576EC1. 
3.691615E0-1 
3. 5976 1 3E 07. 
3. 71 8995E0-2 

2 . 500000E 0 0 
2 • 500000EC 0 
O.OOOOOOE 0 1 


3.04369E00 6 


0E 9 

1073.00 
85605E-3- 
34065E-3- 
11871E-4- 
19321E-3- 
59763E-3- 
•3333E-32 
81456E-4- 
. 5 167E-38 
1000. E0 
. OOOOOE 0 
.0000 CEO 
. OOOOOE 0 
ICOO.EO 
. 1187E-4 


1 2 
500. 

. 50000E5 
2.E-3 

7 . 6675E-7. 
5. 5262E-61 
7.3994E-9- 
9.61 196-69 
6. 2566E- 7 . 
• 65031E- 6- 
2.23876-74 
. 58374E-6- 
1.008E0. 
0. 00000E0 
0. OOOOOE 0 
0. OOOOOEO 
2.016E0 
-7.399E-9 


.8 0.3500000 .00000700 5500. 
• 48055 55 E -12 0.90 


151043E-9- 
. 51400E-9- 
2 . 03 3 E- 1 1 2 
•51 227E-9- 
1131 58E-9- 
.976886-9- 
.24906-11- 
8.2999E-92 
739503E -7 
0. OOOOOEO 
0. OOOOOEO 
0. OOOOOEO 
4.577835 
-2.03E-11 


1 .139E-14-6.49672E2 1 

2.382E-1 4—6 .80533E1 
. 4594E— 1 5-8.54910E2 0 

3 . 30 9E-1 2-9 .6725362 
7.690E-15-8.90174E2 0 

9.977E-14-1.06283E3 
3.346E-15-1.19279E3 0 

• 708 2E-1 2-1 . 10577E3 
H 0 

0 .00000602 • 547050E4-4 . 600 IE-1 
0 .00000602 . 54 705 OE 4-4 .600 IE-1 

H2 0 

2.459E-15-8.5491E02 -1.648E00 


2.846085E04.1932E-03-9.61 19E-69.5123E-09-3 .309E-12-9 .67254E2 -1 .4118E0 
0. 000000E 0 2 . OOOOOE G 0. OOOOOEO 0. OOOOOEO 

1000. EO 15.035E0.103791E-6 CH3 0 

2. 802766EC6.25045E-3-2.28926-63. 8993E-10-2 .528E-141 . 578749645 .6841 17E0 
3 . 39950 5E 04. 26 78 3E- 32 . 0332 7E-7- 1 . 1 548 E -94 . 1 28 8 E-l 3 1 . 564979E4 2 .7C3747E0 


1 . OOOOOOE 0 3.000CCEC 0. OOOOOEO 0. OOOOOEO 

1000. EO 16.043E0 .1604671 CH4 0 

1.1S000E0 1. 0950E-2-4.0620F-6 7 . 1 3 7E- 10-4 . 749E-1 4-9 . 8 556E03 1.2506E01 
4.249768E0-6.9127E-3 3 . 1 602E- 5-2 . 97 1 5F -89 . 51036-1 2-1 .0 1 866 E4-9 . 17 55F- 1 
1. OOOOOEO 4.C000E00 O.OOCOEOO O.OOOOEOO 

1000. EO 26.C38E0.390335E-7 C2H2 0 


4.496 6E00 5 . 2698E - 3- 1 . 840E-063 . 1 054 E -10-2 .OOOE-1 42 . 5 637E004-3 . 14 48 1F0 
7 . 90333F- 1 2. 3466E-2-3 .5542E-5 2 . 7951E-8-8 .448E-12 2.6255E04 1.4005E01 
2. OOOOOE C 2. OOOOOE C O.COOOOEC 0. OOOOOEO 

1000. EO 28.C54E0.286425E-5 C2H4 0 


DATA 

1 

DATA 

2 

DATA 

3 

DATA 

4 

DATA 

5 

DATA 

6 

DATA 

7 

DATA 

8 

DATA 

9 

DATA 

10 

DATA 

11 

DATA 

12 

DATA 

13 

DATA 

14 

DATA 

15 

DATA 

16 

DATA 

17 

DATA 

18 

DATA 

19 

DATA 

20 

DATA 

21 

OATA 

22 

DATA 

23 

DATA 

24 

DATA 

25 

DATA 

26 

DATA 

27 

DATA 

28 

DATA 

29 

OATA 

30 

DATA 

31 

DATA 

32 

DATA 

33 

DATA 

34 
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3.5023E00 1 . 159E-02-4.4745E-6 7 .945E-10-5 .323E-14 4.5439E03 2.4667E00 
1 . 120244EO 1.3906E-2 2 . 656 8E-6-1 . 1 560E -85 . 2387 F-l 25 . 33 2 889 E3 1.58378E1 
2.00000EG 4.C0000EG O.OOOOOEO O.OOOOOEO 

1000. EO 3 C . 070E0 . 2082 73 E-5 C2H6 0 

. 1430 799E 1 . 188898E-1-. 70440E- 5 . 1 1 8720E- 8- . 7445 E-l 3- . 1 143 1 1 E5 . 1401321E2 
. 288203 9E 1.1032 19E-1. 119142E-4-. 1483 2 E -7. 44749 E-l 1- . 1 16209 E5 . 7597900E l 
2.00000EC 6.00000EC O.COOOOEO O.OOOOOEO 

1000. EO 28.016EO 0.1880617 N2 0 

2. 854576EC 1 . 5976E- 3- 6 . 2 566E- 7 1 . 1 31 6E - 10-7 . 69 E - 15-8.90174E2 6.39029EQ 
3. 69161 5E 0- 1 . 33 33E-32. 65031 E-6-9.76 9 E-10-9 .977E -14- 1 .062 83 E3 2.28 750E0 
0 • OOOOOOE 0 O.OOOOOEO 2.GOOOOEO O.OOOOOEO 

1000. EO 17.032EO. 261 467E-3 NH3 0 

2.14939 9E 06.4928 5E- 3- 2.2695 E-63.7394E- 10-2. 36 IE-14-6 .401 96 E3 9.23891E0 
3. 77 16 2E 00-4. 86 2 IE- 49. 8 742E-06-9. 5679E -93 . 1 313 E-l 2-6. 728 10 E3 1.4654E00 
0 . OOOOOE 00 3 . OOOOOE 0 l.OOOOOEO O.OOOOOEO 

1000. EG 27 .027E0 • 20630 7 E-4 HCN 0 

3.65 3 80 3E 03.4436 3E- 3- 1.2585 E-62.1692E-10-1.430E-141. 442 180E42 • 372602E0 
2.168115E01.07290E-2-1 . 5088E-51 . 19330E-8-3 .700E-121 .468290E49.281020E0 
1 • OOOOOOE 0 l.OOOOOEO l.OOOOOEO O.OOOOOEO 

1000. EO 18. 016EO 0. 1063185 H20 0 

2 . 67 075E 0 3.0317E-3 -8.535E-7 1 . 1 79E-1 0-6 . 1 97E-1 5-2 .98 89E04 6.88383E0 
4. 15650E00-1.7244E-35. 6982E-06-4 • 5930E-9 1.4234E-12-3.02 888E4-6 . 86 16E— 1 
0. OOOOOOE 0 2 . OOOOOE 0 O.COOOOEO l.OOOOOEO 

1000. EO 17.008E0 1.0000E-9 OH 0 

2 . 889554E09.98350E-4-2. 1 880E-71 .9803E-1 1- 3 . 84 5E-1 6 3 . 88 1 179E35 . 5 5970 1 EO 
3. 823470E 0-1 . 1 1 87E- 31 . 24 66 8E-6- 2 . 1 03E-10-5 . 254E-143 . 585278E35 . 8253E-0 1 
O.OOOOOOEO 1 * OOOOOE C O.OOOOOEO l.OOOOOEO 

1000. EC 44.011EO .02711201 C02 0 

4. 41 2 9E 003. 1923F-03 -1 .298E-6 2 . 4 1 5E -1 0- l . 674F-1 4-4 . 8944E04-7 . 2876E- l 
2. 170100E0 1.0378E-2-1 . 0734E- 56. 34592E -9- 1 .628 E-l 2-4 .83526 E4 1.06644E1 
l.OOOOOEO C.OOOOClEO O.COOOOEO 2.COOOOEO 

1000. EO 28. 011E0 0.1077713 CO 0 

2.951 2E GO 1 . 5526E-3-6. 1911E-7 l . 1 3 5E- 1 0-7 . 78 8 E-l 5 -l .42 32E04 6.5314F00 
3. 787133E0-2. 1 71E - 035 . 07573E-6-3 .473 8E-97 . 72 1 7 E- 13- 1 . 43 635 E4 2.63355E0 


DATA 

35 

DATA 

36 

DATA 

37 

DATA 

38 

DATA 

39 

DATA 

40 

DATA 

41 

DATA 

42 

data 

43 

DATA 

44 

DATA 

45 

DATA 

46 

DATA 

47 

DATA 

48 

DATA 

49 

DATA 

50 

DATA 

51 

DATA 

52 

DATA 

53 

DATA 

54 

DATA 

55 

DATA 

56 

OATA 

57 

DATA 

58 

DA TA 

59 

DATA 

60 

DATA 

61 

DATA 

62 

DATA 

63 

DATA 

64 

OATA 

65 

DATA 

66 

DATA 

67 

DATA 

68 
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1 . 0000 OE 0 0 * GOOOOE 0 O.OOOOOEO 1 .OOOOOEO 
1000. FO 26.019E0 1.0000E-9 
3.602263E03.4C862F-49.71624E-8-1. 582F-11- 
3. 85281 4E 0-2. 7632 E- 36. 85704E-6-5 . 4 1 3E -091 
1 » OCOOOOE 0 O.OOOOOEO l.COCOOEO O.OOOOOEO 
1000. EG 25.030E0 1.0000E-9 
. 3513479E 1 . 3 5 8906E- 2- . 1 32 31 E- 5. 2 30520E -9- 
.3006269F 1 . 55 3788E- 2- . 3 5 1 12 E- 5. 1 24 860E -8- 
2 . OCOOOOE Q 1 . COOOOE 0 O.OOOOOEO O.OOOOOEO 
1000. EO 37.041E0 1.0000E-9 
.3964709E 1 . 620C30E-2- . 226 55E-5 . 37 1 7 1 2E -9- 
. 2473840E1.117509E-1-. 80448E-5. 272896E-8- 
3. OCOOOOE 0 1. GOOOOE 0 O.OOOOOEO O.OOOOOEO 
1000. EO 39.052E0 1.0000E-9 
. 58736 79E 1 . 74033 8E-2- . 2 72 89E-5 . 443 720E-9- 
. 2695820E 1.22 6768E-1-. 24508E-4. 131 474E-7- 
4 . OCOOOOE 0 1 . GOOOOE 0 O.OOOOOEO O.OOOOOEO 
1000. EC 36.033E0 l.OOOOE-9 
4. 7124 74E 0 2.9026 5F -3- 1.2142 E— 62 .284 7E -10- 
2. 6 32587F 0 9 . 4 1 857E- 3-9 . 5932E- 65. 57955E-9- 
3 . OCOOOOE 0 0. OOCOCE 0 O.OOOOOEO O.OOOOOEO 
1000. EO 12 . 01 IE 0 7.125731 

1 • 3632 5E 00 1.85605E-3-7.6675E-71. 5104E-1D- 
-7.1244E-17.34G65E-3-5.5262E-6 1.514E-09- 
i.OOOOEOO O.OOOOOEO O.OOOOEOO O.OOOOEOO 


33. 3 

2.986 

H 

3 3 . 3 

2.986 

H2 

136.5 

3.822 

CH3 

136. 5 

3.822 

CH4 

185.0 

4.221 

C2H2 

205.0 

4.232 

C2H4 

230. o 

4.418 

C2H6 

91.5 

3.681 

N 2 

356. 0 

2.649 

H20 



DATA 

69 

CN 0 

DATA 

70 

4. 14 2E-164.7310 37E4 3.552052E0 

DATA 

71 

•4906E-124. 740969 E4 2 .971802E0 

OATA 

72 


DATA 

73 

C2H 0 

DATA 

74 

.1530E-13.5788759E5.4523285E1 

DATA 

75 

. 189 6E-12 .5796960E5.6920349E1 

DATA 

76 


DATA 

77 

C3H 0 

DATA 

78 

•2262E-13.6283285E5 .3467072E 1 

DATA 

79 

• 3 544 E- 12 .630 7721E5. 1054254E2 

DATA 

80 


DATA 

81 

C4H 0 

DATA 

82 

. 263 7E-13. 7605 163E5- .40 1004 El 

DATA 

83 

. 2673 E-l l. 764 888 1E5. 1039 807E 2 

DATA 

84 


DATA 

85 

C 3 0 

DATA 

86 

1 .599E-149.375270E4-2.53044E0 

DATA 

87 

1. 424E -129. 431 148 E48. 0788 26E0 

DATA 

88 


DATA 

89 

C l 

DATA 

90 

1. 139E-14-6.4967E02-7.98 90E00 

DATA 

91 

2.382E-14-6.80533E1 2.79326E0 

OATA 

92 


DATA 

93 


DATA 

94 


DATA 

95 


DATA 

96 


DATA 

97 


DATA 

98 


DATA 

99 


DATA 

ICO 


DATA 

101 


OATA 

102 
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335. 


4.31 

HCN 

DATA 

103 


312.0 


3.432 

NH3 

DATA 

104 


113.0 


3.433 

OH 

DATA 

105 


190.0 


3.996 

C02 

OATA 

106 


110. 0 


3.590 

CO 

OATA 

107 


335. 


4.31 

CN 

DATA 

108 


185.0 


4.221 

C2H 

DATA 

109 


185.0 


4.221 

C3H 

DATA 

110 


135.0 


4.221 

C4H 

DATA 

111 


L85.Q 


4.221 

C3 

DATA 

112 

34 





DATA 

113 

0.3 0 


2. 785 



DATA 

114 

0.35 


2.628 



DATA 

115 

0.40 


2.492 



DATA 

116 

0.45 


2.368 



DATA 

117 

0.50 


2.257 



DATA 

118 

0.55 


2.156 



DATA 

119 

0.60 


2.065 



DATA 

120 

0.65 


1.982 



OATA 

121 

0.70 


1.908 



DATA 

122 

0.75 


1. B41 



DATA 

123 

0.80 


1.780 



DATA 

124 

0.85 


1. 725 



DATA 

125 

0.90 


1. 675 



DATA 

126 

0.95 


1.629 



DATA 

127 

1.00 


1.587 



DATA 

128 

1.10 


1. 514 



DATA 

129 

1.20 


1.452 



DATA 

130 

1.30 


1.399 



OATA 

131 

1.50 


1.314 



DATA 

132 

1.70 


1.248 



DATA 

133 

1.90 


1.197 



OATA 

134 

2.2 


1.13 8 



DATA 

135 

2.6 


1.061 



DATA 

1 36 
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3.2 

1.022 

DATA 

137 

200.0 

0. 5320 

DATA 

138 

400.0 

0.4811 

DATA 

139 

0.37CC070E0 0 

. 73671 33E-4 . 153251 8E-5-. 1962704E-8. 8857809E- 12 

DATA 

140 

0. 10561 79E 0 - 

l . 836062E-? 1.758049E-3-1.678598E— 5 4.731057E-8 

DATA 

141 

- . 3 5642 66E- 1 

4. 579073E-2 1 . 22 98 1 7E -4-. 82 77667E-7-. 2279748 E-7 

DATA 

142 

173 . 99268E C - 

4.816270E0 . 50990242E -1 -2 . 3 83797 E-4 4.135187E-7 

DATA 

143 

-50. 09959E 0 

1.7C7140E0 - . 1 945725E-1 .9382376E-4-. 1648646E-6 

DATA 

144 

52 . 578338E 0 - 

• 865 5753E 0 . 5 1 86 7970E -2-. 1 242 327 E-4 .1021600E-7 

DATA 

145 

- 169. 8485E 0 

3. 9Q7641E 0 -.3215650E-1 . 1 127232E-3-. 1410 145E-6 

DATA 

146 

7.0 

0. 8727 

DATA 

147 

10.0 

C . 8242 

DATA 

148 

20.3 

0. 7432 

DATA 

149 

40.0 

0.6718 

DATA 

150 

70.0 

0.6194 

DATA 

151 

100.0 

0.5882 

DATA 

152 

4.0 

0.9700 

DATA 

153 

5.0 

0.9269 

DATA 

154 

- 1731.992E0 20. 881448E0 -.9146933E-1 . 1739896E-3-. 1218719E-6 

DATA 

155 

3 7 


DATA 

156 

1 8. 

3000E14 232.000E0 l.OOOOOEO 

DATA 

157 

2 5. 

IOOOOE8 114.000E0 3.00000EO 

DATA 

158 

2 2. 

50000E5 lOO.OOOEO 1.30000E0 

DATA 

159 

2 2. 

OOOOOE7 14Q.000E0 3.10000E0 

DATA 

160 

3 2. 

00000E5 7C.000E0 2.00000E0 

DATA 

161 

3 9. 

7000 OE 6 122.000E0 2.00000E0 

DATA 

162 

3 1. 

3000E10 172.000E0 3.00000E0 

DATA 

163 

68. 6000E 0 5. 

14500EG C.4000E0 

DATA 

164 

80.0000EJ 43 

. 2800E0 0.2500E0 

OATA 

165 

17.8000E0 9. 

64760E0 0.3500EO 

DATA 

166 

1 


DATA 

167 

-855. 340 GEO 10.1Q3099EC -.4343457E-1 . 8 12 2788E-4-. 56033 27E-7 

DATA 

168 


446 



TABLE B-3# Typical Output for Equilibrium Analysis 

INDEPTH FLOW AN4LYS I SI EGUI L I BRI UM FLOW) 

THEORETICAL 

CHAR BACK TEMPERATURE (OF)= 1524.8 NUMBER OF GAS COMPONENTS® 19 

INITIAL SLOPE (OF/FT)= 3000.0 INITIAL DENSITY OF COM POS I TE( L BS / FT** 3 ) = 34.94 

THICKNESS OF CHAR ( I NCHE S ) =0 . 0223 92 THICKNESS OF DECOMPOSITION Z ON E = 0 .053250 

TOTAL MASS FL UX( LBS/FT2-SEC ) = . 034942 GAS MASS FLUX AT THE SURFACE® .074805 

FRONT SURFACE TEMPERATURE ( OF ) =5500. 0 SURFACE R ECESS I ON VELOC I TY ( F T / SEC ) =0 . 00 10 0 

RATE OF HEAT ABSORBED IN THE CHAR ZONE ( RTU/FT**2~S EC ) = 16 87 2 . 2 77 
RATE OF HEAT ABSORBED IN THE DECOMPOSITION ZONE ( BTU/FT2- SEC= ) 20.638 

PERCENT OF TOTAL HEAT ABSORBED IN THE CHAR ZONE= 0.9987781E 02 
PERCENT OF TOTAL HEAT ABSORBED IN DECOMP-ZONE= 0.1221660E 00 
PERCENT OF HEAT ABSORBEO BY THE GAS IN THE CHAR ZONE® 0.4576713E 00 
PERCENT OF HEAT ABSORBED BY THF SOLIDS IN THE CHAR ZONE= C . 80260 10E-0 1 
PERCENT OF HEAT ABSORBED BY REACTION IN THE CHAR ZONE® 0.9946208c 02 
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INDEPTH FLOW ANALYS I S< EQUl LI BRI UM FLOW) 


TEMPERATURE DROP (OF) = 3931.0 
PRESSURE DROP ( LB/FT2) = 9.6 
SURFACE HEAT FLUX ( 8TU/FT2-SEC) = 16892.92 
RADIANT HEAT FLUX BTU/FT2-SEC )= , 597.71 
AERODYNAMIC HEAT FL UX I BTU/F T ?-SEC ) = 17940.63 


CHAR DEPTH I 

FT ) 

0.0044 

0.0045 

0.0045 

0.0046 

0.0046 


TEMPERATURE 

(OF) 

1524 

. 8 

1533 

.0 

1542 . 

2 

1552.3 

1563.3 


PRESSURE ILB/FT2) 

2169 

.6 

2169 

.5 

2169. 

4 

2169.3 

2169.2 


MASS FLUX (LB/FT2-SEC 1 

0.02 

16 

0.0266 

0.0266 

0.0265 

0.0264 


GAS COMPONENT 



COMPOS 

I T I ON (MOLE/MOLF 

GAS) 


1 

H 


0.73 95E-07 


0.2825E-07 


0. 31 12E-07 


0. 3528E-07 

0.4074E-07 

2 

H2 


0.4578E 01 


0.8869E 00 


0.8880E 00 


0..8894E 00 

0.S908E 00 

3 

CH3 


0. 1038E-06 


0. 3446E-07 


0. 3658E-07 


0.3952E-07 

0. 4299E-07 

4 

CH4 


0.16C5E 00 


0.2709E-01 


0. 2605E-01 


0.2476F-01 

0.2355E-01 

5 

C2H2 


0 . 3903E-07 


0. 1627E-07 


0. 1794E-07 


0.2036E-07 

0.2353E-07 

6 

C2H4 


0.2864E-05 


0.75 3 2E— 06 


0. 7683E-06 


0.7881E-C6 

0 . 8090E-06 

7 

C2H6 


0.20R3E-05 


0 . 3445E-06 


0.3289E-06 


0.3097E-06 

0 . 29 1 9E-06 

8 

N2 


0 . 1 88 IE 00 


C. 3549E-01 


0 . 3545E-C l 


0.3539E-01 

0. 3534 E- 01 

9 

NH3 


0.261 5E-03 


0.4901E-04 


0. 4783E-04 


0.4634E-04 

0 . 4489E-04 

10 

HCN 


0 . 2063E-C4 


0. 7020E-' , 5 


0. 7429E-05 


0.7995E-05 

0.8661F-05 

11 

H20 


0.1063E 00 


0.3443E-02 


0.324 7 E-02 


0. 30 10 E-02 

0.2797E-0? 

12 

OH 


0. 1000F-08 


0. 5333 E- 12 


0 . 57 19 E- 1 2 


0.6259E-12 

0.6912E-12 

13 

C02 


0.271 IE-01 


0.1 753E-03 


0. 1630E-03 


0. 1434E-03 

0 . 1356E-03 

14 

CO 


0.1078E 00 


0.4684E-0I 


0. 4700E-01 


0.4719E-01 

0 . 4736E-0 l 

15 

CN 


0. 1000E-08 


0.3660E-14 


0.4324E-14 


0. 8360F- 1<* 

0. 7033 F- 14 

16 

C2H 


0.1000E-08 


0.6916F-16 


0. 8449 E- 1 6 


0. 1091F-15 

0. 1533E-15 

17 

C 3 H 


0. 1000E-08 


0. 2759F- 1 7 


0 . 34 22 E- 1 7 


0.4499E-1 7 

0.6540E-17 

18 

C4H 


0. 1000E-08 


0.3247E-21 


0.4201E-21 


0. 5797 E- 21 

C.9319F-21 

19 

C 3 


0. 1 0 00E-08 


0.6734E-27 


0.91 51E-27 


C. 1329E-26 

0.2437E-26 

20 

C 


0.7126E 01 


0.1326E 01 


0. 1326F 01 


0.1325E 01 

0.1324E 01 
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INDEPTH FLOW ANALYS I S< EQUI LI BRI UM FLOW) 



CHAR DEPTH (FT) 

0.0047 

0.0047 

0.0048 

0. 0048- 

0.0049 

TEMPERATURE (OF) 

1575.3 

1588.3 

1599.4 

1614.9 

1632.2 


PRESSURE (LB/FT2) 

2169.1 

2169.0 

2168.9 

2168.8 

2168.6 

MASS FLUXILB/FT2-SEC ) 

0.0264 

0.0263 

0.0263 

0.0262 

0.0261 


GAS COMPONENT 


COMPOSITION (MOLE/MOLE 

GAS) 


l 

H 

0.4693E-07 

0.541 2 E - 0 7 

0.6186 E— 07 

0. 7411 E— 07 

0.9005E-07 

2 

H 2 

0. 892 IE 00 

0.8935E 00 

0.8946E 00 

0.8960E 00 

0.8975E 00 

3 

CH3 

0.4682E— 07 

0.5109E-07 

0. 55 29E-07 

0.6153E-07 

0.6912E-07 

4 

CH4 

0.223 1E-0 1 

0. 2103 E- 01 

0.2 003E-01 

0. 1873 E-01 

0. 1737E-01 

5 

C2H2 

0.271 3E-07 

0.3131E-07 

0. 3580E-07 

0.4293E-07 

0.5220E-07 

6 

C2H4 

0.831 2E-06 

0.8552E-06 

0. 8765E-06 

0 . 9060 E-06 

0.9395E-06 

7 

C2H6 

0.2738E-06 

0 .2552E-06 

0. 2409E-06 

0. 2225E-06 

G.2034E-06 

8 

N2 

0. 3529E-01 

0. 3524E-01 

0.3520E-0L 

0.351 5E-01 

0 • 3510E-0 1 

9 

NH3 

0.4340E-04 

0 . 4 1 83 E- 04 

0. 4057E-04 

0.3890E-04 

0.371 0E-04 

10 

HCN 

0.9392E-05 

0. 1021E-04 

0. 1101E-04 

0. 1219E-C4 

0. 1363E-04 

11 

H20 

0.2581E-02 

0. 2361E-02 

0. 2197E-02 

0.1939 E-02 

0.1 777E-02 

12 

OH 

0.7636E-12 

0.8451E— 12 

0.9270E-12 

0,. 10 50 E- 1 l 

0 . 1202E- 1 1 

13 

C02 

0. 1228E-03 

0. 1099E-03 

0. 1006E-03 

0.8893E-04 

0 . 7733E-04 

14 

CO 

0.4753E-01 

0 . 4770E- 01 

0.4782E-01 

0.4798E-01 

0.4R14E-01 

15 

CN 

0.9050E-14 

0. 1 159E-13 

0. 1477E-13 

0.2056E-13 

0.291 6E- l 3 

16 

C2H 

0. 2083E-1 5 

0.2 804E- 1 5 

0. 3776E-15 

0. 5674 E- 15 

0.3686E-15 

17 

C3H 

0.9U3E-17 

0. 1256E-16 

0.1735E-16 

0.27 04E- 1 6 

0.4293E-16 

18 

C4H 

0. 1 395E-2 0 

0. 2055E-20 

0. 3057E-20 

0.5297E-20 

0.9335E-20 

19 

C 3 

C.3976E-26 

0 . 6 346 E- 26 

0. 10 33E-2 5 

0.2042F-25 

0. 4091 E- 25 

20 

C 

0.1323E 01 

0.1322E 01 

0. 132 1 E 01 

0.132CE 01 

0.1319E 01 
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INDEPTH FLOW ANALYSI S(EQUILIBRIUM FLOW) 


CHAR DEPTH (FT) 

0.0049 

0.0050 0.0050 

0.0051 

0.0051 

TEMPERATURE (OF) 

1651.6 

1672.9 1690. 

8 

17 18 . 2 

1749.7 

PRESSURE (LB/FT2) 

2168.5 

2168.4 2168. 

3 

2168.2 

2168.0 

MASS FLUX(LB/FT2-SEC ) 

0.0260 

0.0259 0.0259 

0.0258 

0.0257 


GAS COMPONENT 


COMPOSITION (MOLE/ MOLE 

i GAS) 


1 

H 

0. 1 l 03E-06 

0.139 IE-06 0. 1690E-06 


0 • 2226 E-06 

0.307 6E-06 

2 

H 2 

0.8990E 00 

0.9005E 00 0.9016E 00 


0.9032 E 00 

0 . 9048 E 00 

3 

CH3 

0.7817E-07 

0. 89 73E-07 0. 1006E-06 


0.1 187E-06 

0 . 1 435E-06 

4 

CH4 

0.1597E-01 

0. 1460E-01 0.1357E-01 


0.1212E-01 

0.1070E-01 

5 

C2H2 

0.6394E-07 

0.8072E-07 0.9807E-07 


0. 1292E-06 

0. 1785E-06 

6 

C2H4 

0.9769E-06 

0.1019E-05 0 . 10 55 E- 05 


0.1110E-05 

0.11 75E-05 

7 

C2H6 

0.1839E-06 

0.1654E-06 0.1515E-06 


0 . 1 324E-0 6 

0.1141 E-06 

8 

N 2 

0.3504E-01 

0.3498E-01 0.34 94 E-0 l 


0 . 3489E-0 1 

0 . 3483E-0 1 

9 

NH3 

0.352 IE-04 

0.3329E-04 0.3179E-04 


0. 2964E-04 

0.2741E-04 

10 

HCN 

0.1 534E-04 

0 . 1 752E-04 0.1955E-04 


0.2293E-04 

0.2 756E-04 

11 

H20 

0 . 1564F-02 

0.1 369E-02 0. 1227E-02 


0. 1035E-02 

0.8588E-03 

12 

OH 

0.1386E-11 

0. 1626 E- 11 0.1857E-11 


0 . 2247E- 1 1 

0 . 280 IE- l l 

13 

CO 2 

0 • 659 IE-04 

0. 5590E-Q4 0.4880E-04 


0. 3947F-04 

0.3133E-04 

14 

CO 

0.4 8 30E-01 

0.4843E-01 0.4853E-01 


0.. 4866 E-0 1 

0.4877E-01 

15 

CN 

0.4139E-13 

0.6286E-13 0.8968E-13 


0..1452E-12 

0.2614E-12 

16 

C 2 H 

0.1322E-14 

0.2198E-14 0.3401E-14 


0.6073E-14 

0. 1247E-13 

17 

C 3 H 

0.6748E-16 

0. 1171 E- 15 C.18R4E-15 


0.3522E-15 

0. 7705E-1 5 

18 

C4H 

0. 1607E-19 

0.3149E-19 C.5682E-19 


0. 1208 E- 18 

0.3177E-18 

19 

C3 

0 • 7836E-2 5 

0. 1 777E-24 0. 37 04E-24 


0. 9182 E- 24 

0.3032E-23 

20 

C 

0.1318E 01 

0.1317E 01 0.1317E 01 


0.1316F 01 

C.1315E 01 
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INDEPTH FLOW ANALYS I S( EQUI L I BR I UM FLOW) 


CHAR DEPTH (FT) 0.0052 0.0052 0.005? 0.0053 0.0053 
TEMPERATURE (OF) 1785.2 1824.9 1860.8 1913.7 1974.2 
PRESSURE ( LB/FT 2 ) 2167.9 2167.8 2167.6 2167.5 2167.3 
MASS FLUX(LB/FT2-SEC ) 0.0256 0.0255 0.0255 C.0254 0.0253 

GAS COMPONENT COMPOSITION (MOLE/MOLE GAS) 


1 

H 

0.4346E-06 

2 

H2 

0.9063E 00 

3 

CH3 

0. 1 760E-06 

4 

CH4 

0.9310E-02 

5 

C2H2 

0.2521E— 06 

6 

C2H4 

0. 1250E-05 

7 

C2H6 

0.9659E-07 

8 

N2 

0 . 34 77E-01 

9 

NH3 

0.2 514E-04 

10 

HCN 

0.3359E-04 

ll 

H20 

0.6975E-03 

12 

OH 

0.3549E-1 1 

13 

CO 2 

0.241 9E— 04 

14 

CO 

0.4887E— 01 

15 

CN 

0.4838E-12 

16 

C2H 

0. 2630E-1 3 

17 

C3H 

0.1729E— 14 

18 

C4H 

0. 8524E-1 8 

19 

C 3 

0.101 IE-22 

20 

c 

0.1314E 01 


0 • 635 7E-06 0.8825E-06 0.1406E-05 
0.9077E 00 0.9087E 00 0.9100E 00 
0. 2200E— 06 0 . 2667E-06 0.3503E-06 
0.8021 E-02 0.7032E-02 0.5831E-02 
0 . 368 2E-06 0.5105E-06 0.81 12E-06 
0.1335E-05 0. 1414E-05 0.1532E-05 
0. 8083 E— 07 0.69 04E-0 7 0. 551 5E-07 
0.3472E-01 0.3468E-01 0.3463E-01 
0.2291E-04 0.21 10E-04 0.1878E-04 
0.4 1 69E-04 0.5028 E-04 0.6558E-04 
0.558 5E-03 0.4588E-03 0.347CE-03 
0.4595E-11 0.5745E-11 0.7885E-U 
0.1 83 7E— 04 0 . 1440 E-04. 0.1019E-C4 
0.4895E— 01 0.490 1E-0 l C..4906E-01 
0.9605E-12 0. 1726 E- 11 0.3964E-11 
0.6068E-13 0 . 1236E-12 0.3389E-12 
0.4287 E— 14 0.9273E-14 0.2767F-13 
0.2603E-17 0.6695E-17 0.2552E-16 
0.3991E-2 2 0. 1269E-21 0.6517E-21 
0.1313E Cl 0.1313E 01 0.1312E 01 


0.2327E-05 
0.9112E 00 
0.4706E-06 
0.4746E-02 
0. 1338E-05 
0. 1671E-05 
0.430RE-07 
0 .3458E-01 
0. 1652E-04 
0.8749E-04 
0.2552E-03 
0 • l 1 1 2F- 1 0 
0 .6964E-05 
0.4910E-01 
0.9694E-1 1 
0.9994E-1 2 
0.3921E-1? 
0. 1064E-15 
0.3708E-20 
0.131 2 E 01 
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INDEPTH FLOW AN AL Y S I S ( E QU I L I B R I UM FLOW) 


CHAR DEPTH (FT) 

0.0054 

0.0054 

0.0055 

0.0055 

0.0056 

TEMPERATURE (OF) 

2042. 

4 

2112.4 

2197.7 

2292.8 

2397.8 


PRESSURE (LB/FT2) 

2167. 

2 

2167.0 

2166.8 

2166.6 

2166.4 

MASS FLUX (LB/FT2-SEC) 

0.0253 

0.0252 

0.0252 

0.0252 

0.0251 


GAS COMPONENT 



COMPOSIT 

ION (MOLE/MOLE 

GAS) 


1 

H 

0.3734E-05 


0.681 3E-05 

0. 1164E-04 

0.2371E-04 

0.4163E-04 

2 

H2 

0.9121E 00 


0.9130F 00 

0.9136E 00 

0.9142E 00 

0.9145E 00 

3 

CH3 

0.6200E-06 


0. 8796E-06 

0. 12 00 E-05 

0. 1806E-05 

0.2503E-05 

4 

CH4 

0.3916E-02 


0 . 3064E-02 

0. 2465E-02 

0. 1851E-02 

0 . 1460E-02 

5 

C2H2 

0.2138E-05 


0.3878E-05 

0. 65 36E-05 

0. 1328E-04 

0.231 IE- 04 

6 

C2H4 

0.181 0E-05 


0.20C2E-05 

0. 2189E-05 

0. 2459E-C5 

0.2701 E-05 

7 

C2H6 

0 . 342 OE -07 


0. 2547E-07 

0. 1962E-07 

0. 1391E-07 

0. 1046E-07 

8 

N2 

0 . 3453E-0 1 


0.3448E-01 

0. 3443E-01 

0. 3436E-0 1 

0 . 3428E-0 1 

9 

NH3 

0 . 1466E-04 


0. 1258E-04 

0. 1099E-04 

0.9 188 E-05 

0.7927E-05 

10 

HCN 

0.1 145E-03 


0. 1613E-03 

0. 21 86E-03 

0. 3265E-03 

0.4499E-03 

ll 

H20 

0. 191 7E-03 


0.1332E-03 

0. 9657E-04 

0.6331 E-04 

0 .4454E— 04 

12 

OH 

0. 1533E-10 


0. 2307F-10 

0.3320F-10 

0. 5375E-IQ 

0 .790 IE- 10 

13 

C02 

0.4893E-05 


0. 312 5E-05 

0.21 04E-05 

0. 12 55 F- 05 

0.8153E-06 

14 

CO 

0.491 3E-01 


0.491 4E-01 

0.4915E-01 

0.4915 E-01 

0 .491 5E-01 

15 

CN 

0.224 7E-IC 


0.6526E-10 

0. 1691 E-09 

C. 60125-09 

0. 1607E-08 

14 

C2H 

0.2765E-11 


0. 1004E-10 

0. 3179E-10 

0. 1483E-09 

0.4848E-09 

17 

C3H 

0.2687E-12 


0. 10S5E-11 

0.3781E-11 

0. 2C 10E-10 

0.7228E-10 

18 

C4H 

0 . 409 1 E- 1 5 


0.2 246 E— 1 4 

0. 1034E-13 

0.8052E- 13 

0.3B19F— 12 

19 

C 3 

0. 1921E-19 


0. 1529E-18 

0. 9847E-1 8 

0.1226E-16 

0. 8 116 E- 16 

20 

C 

0. 1 31 IE 01 


0.1311E 01 

0. 13 1 OF 01 

0.1310E 01 

0. 1310E 01 
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INOEPTH FLOW ANAL YS I S ( EQU I L I BR l UM FLOW) 


CHAR DEPTH (FT) 

0.0056 

0.0057 

0.0057 

0.0058 

0.0058 

TEMPERATURE (OF) 

2512. 

8 

2640.8 

2773. 

8 

2915.4 

3064. 

1 


PRESSURE (LB/FT2) 

2166. 

2 

2166.0 

2165. 

7 

2165.5 

2165. 

2 

MASS FLUX(LB/FT2-SEC ) 

0.0251 

0.0251 

0.0252 

0.0252 

0.0253 


GAS COMPONENT 



COMPOSITION (MOLE/MOLE 

GAS) 



1 

H 

C.7908E-04 


0 . 1569E-03 

0.32 78E-03 


0 . 5949 E— 03 

0.1055E-02 


2 

H2 

0.914 8E 00 


0.9148E 00 

0.9145E 00 


0.9140E 00 

0.9131E 00 


3 

CH3 

0.362 8F— 05 


0 . 5338E-Q5 

0. 8087E-05 


0. 1 135E-04 

0 . 1566E-04 


4 

CH4 

0.11 1 3E-02 


0.8550E-03 

0.638 8E-03 


0.49B8E-03 

0.3961E-03 


5 

C2H2 

0. 4340E-04 


0 . 8490E-04 

0. 1743E-03 


0. 3 115 F- 03 

0.543 3E-03 


6 

C2H4 

C.3004E-05 


0 . 3 344E-05 

0. 3754E-05 


0 . 41 30 t- 05 

0.451 5E-05 


7 

C2H6 

0. 7545E-08 


0. 5509E-08 

0. 3887E-03 


0 . 2890E-08 

0.2 1 94E-08 


8 

N2 

0.341 7E-01 


0.3401E-01 

0. 3376E-01 


0.3347 E-0 1 

0 . 3310E-0 1 


9 

NH3 

0. 66 94E-05 


0. 5663E-05 

0.47 06E-0 5 


0.4021 E-0 5 

0 • 3464E-0 5 


10 

HCN 

0.64 78E-03 


0.9462E-03 

0. 1422E-02 


0. 1980E-02 

0.271CE-02 


11 

H20 

0.298 IE-04 


0.2034F-04 

0. 1329F.-04 


0 . 9246 F- 05 

0.661 0E-05 


12 

OH 

0. 1226E-09 


0.194 7E-09 

0. 3209E-09 


0.4828E-09 

0.7135E-09 


13 

C02 

0.4985E-06 


0.3146F-06 

0. 1883F-06 


0. 121 5F-06 

0.812 5E-0 7 


14 

CO 

0.491 5E-01 


0.4914E-01 

0.4914E-01 


0 • 49 1 3 F— 0 1 

0.491 IE-01 


15 

CN 

0.491 4E- 08 


0. 1681E-07 

0.62 30E-0 7 


0. 1754E-06 

0 . 4790E-06 


16 

C2H 

0. 1861E-08 


0. 8344E-0P 

0.4114E-07 


0. 1439 E-0 6 

0 . 4886E-06 


17 

C3H 

0.3090E-09 


0. 1578E-08 

0. 8920E-08 


0. 34 56 E- 07 

0. 1301E-96 


18 

C4H 

0.2231E-U 


0.1672F-10 

0. 141 4E-09 


0.7406F-09 

0 . 3790E-08 


19 

C3 

0.6891E-15 


0.0254E-14 

0. 1142E-12 


0.8607 E- 12 

0 .6402F-1 1 


20 

C 

0.1309E 01 


0.13C9F 01 

0. 13 08 E 01 


0.1307E 01 

0.1305E 01 
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INDEPTH FLOW AN AL Y S I S ( EQUI L I B R I UM FLOW) 


CHAR DEPTH (FT) 

0.0059 

0.0059 

0.0060 

0.0060 

0.0061 

TEMPERATURE (OF) 

3218.7 

3379. L 

3545.6 

3719.7 

3904.3 

PRESSURE (LB/FT2) 

2164.9 

2164.5 

2164.2 

2163.8 

2163.4 

MASS FLUX (LB/FT2-SEC ) 

0.0254 

0.0256 

0.0260 

0.0264 

0.0270 


GAS COMPONENT COMPOSITION IMOLE/MOLE GAS) 


1 

H 

0 • 1 853E-02 

0 . 3336E-02 

0.61 08E-02 

0.9967E-02 

0 . 1672E-0 l 

2 

H2 

0.9115E 00 

0.9087E 00 

0.9039E 00 

0.8974E 00 

0.8865E 00 

3 

CH3 

0.2142E-04 

0.2968E-04 

0.41 35E-04 

0.5383E-04 

0.7068E-04 

4 

CH4 

0.3 164E-03 

0. 2489E-03 

0. 1933E-03 

0. 1.575E-03 

0. 1253E-03 

5 

C2H2 

0.9377E-03 

0. 1653E-02 

0. 2956E-02 

0.4717E-02 

0.770 IE-02 

6 

C2H4 

0.4917E-05 

0.5367E-05 

0. 5846E-05 

0.623 1 E-05 

0 . 6606E-05 

7 

C2H6 

0. 1678E-08 

0. 1260E-08 

0.9331 E-09 

0.726 8 E-09 

0 .5509E-09 

8 

N2 

C.3260E-01 

0.3189E-01 

0. 3089E-01 

0.2983 F- 0 1 

0.2839E-01 

9 

NH 3 

0.2989E-05 

0.2545E-05 

0.21 42E-05 

0. 1848E-05 

0 . 1 560E-05 

10 

HCN 

0.3674E-02 

0. 5033E-02 

0.6918 F— 0 2 

0.8893E-02 

Q.1151E-01 

11 

H20 

0.4776E-05 

0 . 3 3 77E-05 

0 . 2362E-0 5 

0.1763 E-0 5 

0.1287E-05 

12 

OH 

0 . 1 048E-08 

0. 1567E-03 

0. 2371E-08 

0.331 5E-08 

0.472 OE -08 

13 

CO 2 

0.551 6E-07 

0. 3656E-07 

0. 2401 E-0 7 

0. 1709E-07 

0 • 1 1 9 1 E-0 7 

14 

CO 

0 . 4909E-0 1 

0.4905E-01 

0 . 48 98E-0 1 

0.4888E-01 

0.487 1E-0 1. 

15 

CN 

0. 1288F-05 

0.3571E-05 

0. 1013E-04 

0 . 2345E- 04 

0.5659E-04 

16 

C2H 

0.1635E-05 

0.5675E-05 

0. 2030E-04 

0. 5634E-04 

0. 1681E-03 

17 

C3H 

0.482 7E-06 

0. 1860F-05 

0 . 7403 E-0 5 

0. 2259 E- 04 

0.731 5E-94 

13 

C4H 

0 • 1909E— 0 7 

0. 1005E-06 

0. 5484E-06 

0..2162E-05 

0.916 IE-05 

19 

C3 

C.4683E-1C 

0.3599E-09 

0. 2S76E-08 

C. 15 45E-0 7 

0.9072E-07 

20 

C 

0.1303F 01 

0.1299E 01 

0. 1293E 01 

0.1284E 01 

0. 1271E 01 
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INDEPTH FLOW A NAL V S I S < E QU I L l BR I UM FLOW I 


CHAR DEPTH ( FT ) 

0.0061 

0.0062 

0.0062 

0. 0063 

0.0063 

TEMPERATURE (OF) 

4104.5 

4329.2 

4595.6 

4943.1 

5505.7 

PRESSURE CL3/FT2) 

2162.9 

2162.4 

2161.8 

2161. 1 

2160.0 

MASS FLUXRB/FT2-SEC ) 
GAS COMPONENT 

0.0280 

0.0296 0.0325 0.0399 

COMPOSITION (MOLE/MCLE GAS) 

0.0748 

l 

H 

0.2724E-01 

0.4460E-01 

0.7434E-01 

0. 1323 E 00 

0.2530E 00 

2 

H2 

0.8699E 00 

0.8431E 00 

0. 7961 E 00 

0.7019E 00 

0 .451 IE 00 

3 

CH3 

0.9046E-04 

0.1142E-03 

0. 1413E-03 

0. 165 1 E- 03 

0. 1359E-03 

A 

CH4 

0.9967E— 04 

0. 7707E-04 

0. 5593E-04 

0 . 34 37 E-04 

0 . 1034E-04 

5 

C2H2 

0.121 7E-0 1 

0.1916E-01 

0. 3043E-01 

0 . 48 85 E-0 1 

0.7125E-01 

6 

C2H4 

0. 6882E-05 

0.7004E-05 

0. 6804E-05 

0. 5840E-05 

0 . 2759E-05 

7 

C2H6 

0 . 4 1 5 5E-09 

0 . 301 0E-09 

0. 1991E-09 

0. 10 37E-09 

0. 190 IE-10 

8 

N 2 

0. 2666E-0 1 

0 . 2446 E- 01 

0.215 7 E-0 1 

0. 1751 E-01 

0. 1086E-01 

9 

NH3 

0. 1305E-05 

0. 1057E-05 

0. 8019E-06 

0. 5 1 70 E-06 

0.1724F-06 

10 

HCN 

0 . 1 45 IE -01 

0. 1808E-01 

0.2222E-01 

0 . 2648 E- 01 

0.2671E-01 

11 

H20 

0.9476E-06 

0.6833E-06 

0.46 77 E-06 

0.2796 E-06 

0 . 9765E-C 7 

12 

OH 

0.6569E-08 

0.9137E-08 

0. 1 2 78 E-0 7 

0.1800E-07 

0.2325E-07 

13 

C02 

0.8452E-08 

0 . 5 926 F- 08 

0. 40 07 E- 08 

0. 2464E-08 

0. 1081E-08 

14 

CO 

0.4R44E-01 

0.4798E-01 

0.471 l E-0 1 

0.4520F-01 

0.3P23E-01 

15 

CN 

0. 1295E-03 

0. 2981E-03 

0.71 54E-0 3 

0. 1902E-02 

0.6594E-02 

16 

C2H 

C.4686F-03 

0.1 323F-02 

0. 3964E-02 

0. 1361E-01 

0.639 1E-0 1 

17 

C3H 

0.2222E-03 

0.6844E-03 

0.2253E-02 

C.8603E-02 

0.4680E-01 

13 

C4H 

0.3598E-04 

0. 1439E-03 

0. 6270E-C3 

0 . 3 308 E- 02 

0 . 2795E-0 1 

19 

C 3 

0.488 IE-06 

0.2700E-05 

0. 16 8 5 E-04 

0. 1383F-03 

0 . 2439E-02 

20 

C 

0.1250E 01 

0.1217E 01 

0.1154E 01 

0.1012E 01 

0.4824E 00 
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TABLE B-4. Listing of ABLATIN2 Program 


INOEPTH response of an ablative composite 

NON-EQUILTBRIUM FLOW ANALYSTS 
ALBLATIN2 SYSTEM 


C 

REALMS 72 2 

COMMON/KA/SK 6 ) , S2 ( 6 ) , S3 ( 6 ) , S4 { 6 ) , S5 16 ) • All ( 6) » A22 ( 6 ) * 
l A33( 6) , A44(6) , 455(6) ,F I ( 30 ) ,F I T ( 30 ) ,G I( 30) , 

' 2 GTI(3O)*AA<30,6),$6(6) t A66(6),JCnOE(6)*CPMXl 

COMMON /KR/ AT ( 30 ) , B I ( 3 0) ♦ C I ( 30 ) , 0 1 ( 30 ) » E I 1 30 ) , AI I ( 30 1 , 

1 B1 H 30) .Cl 1(30) «DI 1.(30) tE! 1(30) ,TLOW(30> 

COMMON /KC/TC0DF(30)»Y( 30) ,FW(30) 

C0MM0N/KCC/SPCIEK30) , SPC I E2 ( 30 ) f TABL E ( 300 , 26 ) , Z , INDPT 
COMMON/KE /XTKF ( 100) # Z0MG4( 100 ) . FK (100 ) ,S IG( 100) 

COMMON /KEE /PL ,R R , T Z ERG t EPS , KEY , NC » NS T MM, NO 
COMMON /KF/CPSfCDO »OCDO» JCHAR » TC 

COMMON /KI /K.Nf K7 , OTC ,RE AC2 , W f K MAX , AVGFW* N , 72 , DF.LZ , H 
COMMON /KJ /OELTK ,TVAR 
COMMON /KK/WTOTAL* RHOI I 
CQMmN/KM/XMOt (30) 

COMMON/KO/Z22 

01 ME NS TON T 1 ( 300 ) ♦ Z X( 41 ) , Z Y( 4 1 ) , TP ( 41 ) , P (41 ) , WFLUX ( 4 l ) , 

1 TT( 21 ) f YCOMP ( 30 t4 1 ) ,PR 00(2 1 ) » PRODC P ( 2 1 ),CP(30) , 

2 PROOR (21) T CONO ( 30 ) ,C V( 30 ) • VIS ( 30 ) « Y I ( 30 ) • Z1 ( 300 ) • 

3 TOK ( 300 ) » CHAR ON ( 300 ) 

DOUBLE PRECISION ZZ ,H1 1 , ZLL , TTTT , OTCC ,RE ACI , CPB 1 , CPB2 
F( A ) =+GROW D *A 
G t A ) = A 

c 

C DEI. TFF=CHA NGF IN OF FOR AN INCREMENT OF CHANGE IN H(FFFT) 

RHO= 13. 


ABL? 

1 

ABL 2 

2 

A Bl. 2 

? 

ABL? 

4 

ABL 2 

5 

ABL? 

6 

ABL 2 

7 

ABL 2 

R 

ABL 2 

9 

ABL2 

10 

ABL 2 

11 

ABL 2 

12 

ABL? 

13 

ABL 2 

14 

ABL 2 

15 

ABL 2 

16 

ABL2 

17 

ABL? 

IB 

ABL? 

19 

ABL? 

20 

ABL 2 

21 

ABL 2 

22 

ABL? 

23 

ABL 2 

24 

ARL 2 

25 

ABL 2 

26 

ABL? 

27 

ABL 2 

2 R 

ABL 2 

20 

ABL 2 

30 

ABL 2 

31 

ABL 2 

3? 

ABL? 

33 

ABL 2 

34 
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W I = 0 . 01 


C 

c 


RR = G AS CONSTANT ( 1 . 98726RTU/( LB -MOLE OR) 

TZFR0= REFERENCE TEMPERATURE 

TFMA X = MA XI MUM ALLOWABLE TEMPERATURE FOR THIS MODEL (OF) 


RR=1. 98726 
T7FR 0=298. 1 59 

HS I M PI = ST MP SON* S RULE INCREMENT SIZE(FT) USED 

IN THE SOLUTION OF THE MOMENTUM EQUATION 
FR 2= 778. 16/32.2 


NC=NO. OF GAS SPECIES 

NNS=NO. OF LIQUID OR SOLID SPFCIFS 

NS=NC+NNS( TOTAL NUMBER OF SPECIES) 

MM= NO. OF FLFMFNTS 

KOOE = 1 CONDUCTIVITY OF CHAR WITH GAS TN PORFS 

INQP T=0 COMPUTATIONS START AT THE BACK SURFACE OF THE CHAR 

INDPT=1 COMPUTATIONS START AT THE VIRGIN MATERIAL 

PL = PRE SSlJRE AT Z=LILR/FT2) 

deltk=tempfraturf increment 

TO-TFMPERATURF AT 7=0 
EPS=POROSI ty 

Z L = A BL A TOR TH ICHK NE SS ( I N FEET) 

HTMNTTIAL RUNGE-KUTTA TMC.PEMENT S I 7F (FT ) USFO 
IN THE SOLUTION OF THE ENERGY EQUATION. 

ALPU A=VI SCOUS COEFFICIENT IN DARCY’S EOUATIONI 1/FT ) 
BETA=TNERTT AL COEFFICIENT TN DARCY'S FQUAT I 0N( 1/ FT2 ) 

SIGMA = STEPHAN-R0LTZMAN CONSTANT (0.481X10-12 8TU/FT 2-SFC-0F4) 
EMI S=CHAR FMISIVITY. 

QF I. UX 1= I N I IT AL BACK SURFACE HFAT FLUX. 

0 I NC= INCREMENT IN THF HFAT FLUX(FOR PARAMETER STUDIFS) 


ABL 2 

35 

ABL 2 

36 

ABL 2 

37 

ABL 2 

38 

ABL 2 

39 

ABL 2 

40 

ABL 2 

41 

ABL 2 

4? 

ABL 2 

43 

ABL 2 

44 

ABL 2 

45 

ABL 2 

46 

ABL 2 

47 

ABL 2 

48 

ABL2 

49 

ABL2 

50 

ABL2 

51 

ABL 2 

52 

ABL 2 

53 

ABL2 

54 

ABL 2 

55 

ABL 2 

56 

ABL 2 

57 

A BL 2 

58 

A BL 2 

5Q 

ABL 2 

60 

ABL 2 

61 

ABL 2 

62 

ABL 2 

63 

ABL 2 

64 

ABL 2 

65 

ABL? 

66 

ABL? 

67 

ABL? 

68 
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QMAX=MAXIMIJM pack SURFACE HEAT FLUX. 
TCHAR=BACK SURFACE TEMPFRATURE OF CHAR 


FR=0. 1666667 


READ INPUT PARAMETERS 


10 R E A 0 1 1 » NC , NNS »MM , KOOE , KE Y, ! NOPT » TFM AX 

11 FORMAT! 616, F10. 1 ) 

READ 12, PL, TO,FPS,ZL,Hl 

12 FORMAT (F10. 3, 10X,4F10.3) 

READ 21. ALPHA, BETA, SIGMA, EM IS 
READ 1. 3 ,DTC » TCHAR ,VR 

13 FORMAT! 7E10.3) 

NN = NC 

N S=NC + NN S 
NQ=N S 


C SI.. .S6! APPLY BETWEEN 10^0-6000 OKI 

C A1 l . . . A66! APPLY BFTWEEN 300-1000 OK) 

C JCODE! J ) =0 THF REFERENCE ELEMENT TS IN THE GAS STATE. 

C JCODE l J ) =1 THE REFERENCE ELEMENT IS IN THE SOLID STATF. 

C A I ... E I ( HE A T CAPACITY CONSTANTS. .. 1 000-6000 OK) 

C FI,GI(NEEDED TO CALCULATE THE ENTHALPY, ENTROPY 

C and FREE ENFRGY. ... 1000-6000 OK) 

C. AIT...GII ( 300-1000 OK ) 

C A A=FORMUL A NIJMBF R . GTVES THF ATOMS OF ELEMENT J 

C. IN SPECIF I. 


ABL 2 

69 

ABL2 

70 

ABL 2 

71 

ABL 2 

72 

ABL 2 

73 

A BL 2 

74 

ABL 2 

75 

ABL 2 

76 

ABL2 

77 

ABL 2 

78 

ABL 2 

79 

ABL 2 

80 

ABL 2 

81 

ABL? 

82 

ABL 2 

83 

ABL? 

84 

ABL 2 

85 

ABL 2 

86 

ABL 2 

87 

ABL 2 

88 

ABL? 

89 

ABL 2 

90 

A BL 2 

91 

ABL? 

92 

ABL 2 

93 

ABL 2 

94 

ABL ? 

96 

ABL 2 

96 

ABL? 

97 

ABL 2 

98 

ABL? 

qo 

ABl 2 

ion 

ARL 2 

101 

ABl ? 

10? 
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c 

TLOW< T I =MINIMUM TEMPERATURE AT WHICH THE HIGH TEMPERATURE 

A BLR 

103 

c 

FIT IS APPLICABLE. 

ABl 2 

I 04 

c 

EW( I )=MQLECULAR WEIGHT OF SPECIE I. 

ABL 2 

105 

c 

YI( T )= INITIAL MOLE FRACTION OF SPECIE !. 

ABL? 

106 

c 

Y I ( T ) = MOLE FRACTION OF SPECIF I. 

ABL 2 

107 

c 

SPCIFl AND SPCIF2 ARF THE SPECIES IDENTIFICATION 

ABL 2 

1 08 

c 

IC0DF(n = 0 SPECIE IS A GAS 

ABL? 

1 09 

c 

ICnOE(T)=l SPECIE IS A SOLTD 

ABL 2 

110 

c 


ABL ? 

111 

c. 


ABL 2 

112 

c 


ABL 2 

113 

c 


ABL? 

114 

c 

—READ EMPIRICAL CONSTANTS TO CALCULATE THE SFNSIBLE 

ABL 2 

115 

c 

ENTHALPY CHANGE OF THE CONSTITUENT ELEMENTS. 

ABL? 

116 

f. 


A8L 2 

117 

c 


ABL 2 

118 


DO 9 J= 1 , MM 

ABL 2 

119 


READ 18» S 1 ( J) ,S2(J)»S3(J) » S4< Jl ♦ S5 ( J I » S6 ( J ) , JCODE ( J I 

ABL? 

120 


READ 18 » All ( J) , A 22 ( J) » A33 ( J I , A44 t J I , A55 ( J I , A66IJI 

ABL 2 

121 

9 

CONTINUE 

ABL 2 

122 


00151=1 »NS 

ABL 2 

123 


READ 14, TLOWI I I *F W ( I ) , YT ( I I , SPC T F 1 III ,S PCIF2 (I) , ICODEI I 1 

ABL? 

124 

1.4 

FORMAT! IGX, 3E10.3,?X,2A3,I4) 

ABL 2 

125 

c 


ABL 2 

126 

c 


ABL 2 

127 

c 

— READ EMPIRICAL CONSTANTS TO CALCULATE THE HF AT 

ABL 2 

128 

r. 

CAPACITY OF THE SOLID PLUS TWO ADDITIONAL CONSTANTS 

ABL? 

129 

c 

TO CALCULATE THE ENTHALPY, THE ENTROPY AND THE FREE 

ABL 2 

130 

c 

FNFRGY OF THE SYSTEM 

ABL 2 

131 

c 


ABL 2 

132 

c 


ABL? 

133 


R F AD 1 3 , AH II , B I ( I 1 ,C I ( I ) , OT ( I ) , E I IT) , F I ( I I , G I ( II 

ABL? 

134 


P E ADI 3 , A I I ( T ) , B I I ( I I ,C 1 1 ( T ) , 0 II ( I ) , F I II I I , F T I II) t G 1 1 (II 

ABL? 

1 35 

c 


ABL? 

136 
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c. 

15 REA013, ! AA! T, J) , J=1,MM) 


F K=POTF NT I AL PAR AMFTER /BOL TZMAN CONSTANT. 
SIG=C0LLIS10N DT AME TER! ANGSTRONG UNITS). 
THESE CONSTANTS ARE USED TO DETERMINE THE 
VISCOCITY AND THERMAL CONDUCTIVITY OF THE 
C REACTING GAS MIXTURE. 

C NDATA=NO. OF XTKE VS. Z 0 MG A DATA POINTS 

C XTKF = PRODUC T OF TEMPERATURE AND I/EK VALUE 

C ZnMGA=COLLISION INTEGRAL TABULATED VS XTKE 

C 
C 
C 

READ16, ! FK! I) , SIG! I J ,1=1 ,NC.) 

16 FORMAT! 2 F T 5 . 5 ) 

RFAOll ,NDATA 

READ17,! XTKE! I) , ZOMGAII ) ,I=1,NDATA) 

17 P QR MAT! 2F l 5 . 5 ) 

18 F0RMAT(6E10.4,I3) 

21 FORMAT! BE 15. 5,F 15. 5) 

C 
C 

C INITIALIZATION OF PARAMETERS 

C. 

c 

C N=C OUNTER OF PUNGE KUTTA STEPS 

N = 1 
K 7=1 

C K 7= 1 ( CALL SUBPROGRAM I NPUT ) K7=2 ! RYPASS 

r. 
c 


SUBPROGRAM 
INPUT ) 


ARL 

2 

137 

ABL 

2 

1 38 

A BE 

2 

139 

ABL 

2 

1 AO 

ABL 

2 

141 

ABL 

2 

142 

ABL 

2 

143 

ABL 

2 

144 

ABL 

2 

145 

ABL 

2 

146 

ABL 

2 

1 47 

ABL 

2 

14B 

ABL 

? 

149 

ABL 

2 

1 50 

ABL 

2 

151 

ABL 

2 

152 

ABL 

2 

1 53 

ABL 

2 

154 

ABL 

2 

155 

ABL 

2 

156 

ABL 

2 

157 

ABL 

2 

158 

ABL 

2 

159 

ABL 

2 

160 

ABL 

2 

161 

ABL 

2 

162 

ABL 

2 

163 

ABL 

2 

164 

ABL 

2 

165 

ABL 

2 

166 

ABL 

2 

167 

ABL 

2 

168 

ABL 

2 

169 

ABL 

2 

170 
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non o r> n 


TQ=INITIAL TEMPERATURE OF BACK SURFACECOF) 

IT IS A SPECIFIED BOUNDARY CONDITION. 

TC=I NSTANTANEOUS TEMPERATURE OF THE SY.ST FMf OF ) 

K 1= 1 

K1=GTVES THE TOTAL NUMBER OF DATA POINTS STORED. 
SHOULD NOT EXCEED THE DIMENSION OF VARIABLES. 


NN4=NC+4 

NN5=NN4+NNS 

C 

C 

C NN 5 GIVES THE NUMBFR OF VARIABLES STORED IN T ABLE ( I * J I . 

C THE FIRST FOUR VARIABLES ARE... 

C II THE TEMPERATURE! IN OK) 

C 2) THE HEAT ARSORREO BY REACTIONS ( BTU/FT2-SFC I 

C 3) THE AVERAGE MOLECULAR WEIGHT 

C 4) THE MASS FLUXILBS/FT2-SEC I 

C 5) THE REST OF THF VARIABLES ARE THE MOLE 

C FRACTIONS. FOR THF SOLIDS, THE TERM STORED 

C IS THE RATIO OF MOLES OF SOLID TO MOLE OF 

C GASES. 

C 

C 

C 

C CONVERT INITIAL COMPOSITION OF THF GASES TO MOL F 

C FRACTION AND CALCULATE THE RATIO OF THF MOLFS OF 

C EACH SOLID SPECIE PER MOLE OF THE GAS MIXTURE. THIS 

C IS DONE IN CASE THE YT (!) IS READ IN AS MOLFS. 

C 

C. 7X= THICKNESS OF CHAR IN INCHES 

l L = l L / 1 2 . 

ZINC=ZL/03. 

ZTNC=Z!NC/S. 

IF ( VR .G E . 1 . F— ? ) Z I NC= Z I NC /? . 


ABl. 

2 

1 71 

ABL 

2 

172 

ABL 

2 

173 

ABL 

2 

174 

ABL 

2 

175 

ABL 

2 

176 

ABL 

2 

177 

ABL 

2 

178 

ARL 

2 

179 

ABL 

2 

180 

ABL 

2 

181 

ARL 

2 

18? 

ABL 

2 

183 

ABL 

2 

184 

ABL 

2 

185 

ABL 

2 

186 

ABL 

2 

187 

ABL 

2 

188 

ABL 

2 

1 89 

ABL 

2 

190 

ABL 

2 

191 

ABL 

2 

192 

ABL 

2 

193 

ABL 

2 

194 

ABL 

2 

195 

ABL 

2 

196 

ARL 

2 

197 

ABL 

2 

1 9B 

ABL 

2 

199 

ABL 

2 

200 

ABL 

2 

201 

ABL 

2 

20? 

ABL 

2 

203 

ABL 

2 

204 
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* 


I F t VR .GE.2.F-2)ZINC=71NC/2. 

22 T NO - 9 
KMA X = 0 
K 1 0= 0 
DEL TFF = 0 . 

RE AC 1 = 0. 

CPB 1=0. 

C P R 2 = 0 . 

0 L =0 . 

DCDQ=0. 

DCDQ V=Q . 

DEL TK=0 . 

K 1 = 1 
T C = T 0 
SUM=0. 

D023I=1»NC 

23 SUM= SUM-*- YI (I ) 

D0?4T=1 , NS 

24 YI ( I )=YI( I ) /SUM 


Hl=INTTIAL RUNGF-KUTTA STFP SIZE 
H=HT 


CALCULATE THE INITIAL AVERAGE MOLECULAR WFIGHT OF THE GAS 


A VGF W=0 . 

DO 3 1 I = l t NS 
XMOL ( I) =YI m 
Y( T I — Y T ( I ) 

IF ( I CODE! I) .FO. I IGOTOBl 


ABL? 205 
A8L? 206 
ABL 2 207 
ABL 2 208 
ABL 2 209 
ABL 2 210 
A BL 2 211 
ABL 2 212 
ABL 2 213 
ABL 2 214 
ABL 2 215 
ABL 2 216 
ABL 2 217 
ABL 2 218 
ABL 2 219 
A R L 2 220 
ABL 2 221 
ABL 2 2 22 
ABL 2 223 
ABL 2 224 
A BL 2 225 
ABL 2 226 
ABL 2 227 
ABL 2 228 
ABL 2 2 2 ° 
ABL 2 230 
ABL 2 231 
ABL 2 232 
ABL 2 233 
ABL 2 234 
ABL 2 235 
ABL 2 236 
ABL? 237 
ABL 2 238 
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A VGF W= A VGF W+Y ( T )*FW{I) 

ABL 2 

239 

31 

CONTINUE 

ABL 2 

240 

C 

W=MASS ELUX(LBS-FT2/SEC) 

ABL? 

241 


W=WI 

ABL 2 

242 


7 = 0. 

ABL 2 

243 

C 

7 = 01 STANCE IN FEET 

ABL 2 

244 


72=0. 

ABL 2 

245 


722=22 

ARL 2 

24 6 


TVAR=(TC+459. 691/1.8 

ABL 2 

247 

C 

TVAR=TEMPERATURE IN OK. 

ABL 2 

248 


77 = 0. 

ABL? 

249 


7 LL = ZL 

ABL? 

2 50 


PRTNT 51 , ZLL 

ARL 2 

251 

51 

FORMAT! IX, , ZLL='D20.9I 

ABL? 

252 

C 


ABL 2 

2 53 

C 


ABL 2 

254 

C 


ABL 2 

255 

C 


ABL2 

2 56 

C. 

-INOEPTH RESPONSE OF A91ATTVE COMPOSITES. 

ABL 2 

257 

C 

FOR BACK SURFACE TEMPERATURE AND HEAT 

ABL 2 

258 

c 

FLUX SPECIFIED. THE EQUATION OF ENERGY 

ABL 2 

2 59 

c 

IS A SECOND ORDER, NON-llNEAR, ORDINARY DIFFERENTIAL 

ABL 2 

260 

c 

EQUATION WITH VARIARLE COEFFICIENTS. 

ABL2 

261 

r. 


ABL 2 

26? 

r 

V-/ 

THE NUMERICAL TFHCNTQUE USED ISA 4T H ORDER 

ABL 2 

263 

C 

VARIABLE STEP RUNGE-KUTTA ANALYSIS. 

ABL 2 

264 

C 


ABL 2 

265 

c 


ABL 2 

266 

c 

TCHAR=TEMPERATURE AT WHICH ALL OF THE VIRGIN 

ABL? 

267 

c 

MATERIAL HAS DECOMPOSED. 

ABL2 

268 

c. 


ABL? 

269 


DEL 7 =H 

ABL 2 

270 


H 1 1 =H 

ABL 2 

271 


T F ( TVAR .GT.TCHAR IG0T032 

ABL 2 

27? 
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C 

CALL INDPTH (TC,CDOV,DCOOV,GASCP.Q,CPV,RHO,TVAR t DEL TK ♦ 

IN »DE LZ » VR * W ,H I 
HI 1 = H 
DEL7.=H 
C 

C C DO V= THE R MAL CONDUCTIVITY OF VIRGIN MATERIAL! 

C 8TU/( FT-SEC-OF) 

C DC DO V= THE DERIVATIVE OF CDOV WITH TEMPE RATURE I BTU/! FT-2EC ) ) 

C GASCP=HEAT CAPACITY OF HI X TURF ( RTU/L B-OF » 

C Q=HE AT ABSORBED BY OEPOLYMER l ZAT ION OF THE 

C VIRGIN PLASTIC COMPOS I TE ( 8 TU/FT3-SEC ) 

C ' CPV^HEAT CAPACITY OF VIRGIN COMP OS I TE (BTU/LB-OF) 

C RHO=OENS I TY OF VIRGIN COMPOSITE 

C DELTK= TEMPERATURE DIFFERENCE IN OK FOR A DISTANCE H. 

C N=NUMBER OF INTEGRATION STEPS 

C DEL7= I NCREMFNT OF OISTANCEIFTI 

C VR = SURF ACE RECESSION VELOC ITY ( FT/SEC I 

C W=MA SS FI. UXILBS/FT2-SEC) 

C H=R UNGE -KIJTTA INTEGRATION STEP SIZEIFT) 

C DTC = QF LUX /CDOV 

C 

WI =W 

DTCI=DTC. 

QCZI=CDOV*DTC 
PRINT 1 3 90 1 DC 7 . 1 
1390 FORMAT! 1 X f *QCZ=*F15»5) 


CALCULATE THE HEAT CAPACITY OF THE PYROLYSIS GAS FS 


CALL CPMI X! TVAP. ,NN,CPMX) 
GASCP=CPMX/AVGFW 


A BL 2 

273 

ABL 2 

274 

ABI 2 

275 

ABL 2 

276 

ABL 2 

277 

ABL 2 

278 

ABL 2 

2 79 

ABL 2 

280 

ABL 2 

281 

ABL 2 

282 

ABL2 

2 83 

ABL 2 

2 84 

ABL 2 

285 

ABL2 

2 86 

ABL 2 

287 

ABL 2 

288 

ABL2 

2 89 

ABL2 

290 

ABL 2 

291 

ABL 2 

292 

ABL 2 

293 

ABL 2 

294 

ABL 2 

295 

ABI 2 

296 

ABI 2 

297 

ABL 2 

298 

ABL2 

299 

A BL 2 

300 

ABL 2 

301 

ABL 2 

302 

ABL 2 

303 

ABL 2 

304 

ABL 2 

305 

ABL 2 

306 
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noon n o o o n o no noon 


GOTOin 


ABL 2 

C ABL 2 

32 CALL CHARPR ABL 2 

ABL 2 

THIS SUBROUTINE CALCULATES THE THERMO-PHYS I C AL ABL 2 

PROPERTIES TN THE CHAR ABL 2 

ABL 2 

DEL 7 = H ABL 2 

71(11=0. ABL 2 

T1(1)=T0 ABL 2 

DTC =QFLUXI /COO ABL 2 

PRINT 36»C00 v ABL 2 

36 FORMATdXt 'CDO= 'El 5.61 ABL 2 

DTCT=OTC ABL 2 

GOTO 1 03 - ABL2 

101 TVAR=( TC+459.69) /l . 8 AB|, 2 

ABL 2 
ABL 2 

TFI TVAR.GT.TCHAP )G0T0102 ABL 2 

ABL 2 
ABL 2 

CALCULATE THE PHYSICO-CHEMICAL PROPERTIES AND DESCRIBE ABL 2 

THE DECOMPOSITION OF THE VIRGIN MATERIAL USING INDPTH. ABL 2 

ABL 2 
ABL 2 

C ALL INDPTH ( TC. , CDOV ,DCDOV »GA SCP » Q , CPV ,RHO, TV AR, DFLTK , ABL 2 

lN ? 0EL7,VR t W,H> ABL 2 

ABL 2 

FOR EXPLANATION OF THE VARIABLES IN THE ARGUMENT SEE ABL 2 

PREVIOUS CALL INDPTH STATEMENT. ABL 2 

ABL 2 

H 1. 1 = H ABL 2 

WI=W ABL 2 

ZLL = Z?0.'??CR33? ABL2 


307 

30B 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 
32 8 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 
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PRINT l39 t TC f TVAR,DTC,GASCP,0CDnV,CPV,Q,C00V t ZZ ABL2 341 

139 FORMAT* IX, 'T='F9.4 f • TK='F9./f t * 0T=‘EU.4,‘ CP='F6.3,* DKE= • Ell .4, ABl. 2 342 

1* CPP=*ril.4 f ' 0= , E11.4 f ’ KE='E11.4,015.7) ABL 2 343 

qcz i=cqov*dtc abl 2 344 

PRINT 1 390 * QC Z T ABL 2 345 

C ABL 2 346 

C ABL? 347 

C CALCULATE THE HEAT CAPACITY OF THE PYROLYSIS GASES ABL 2 348 

C ABL 2 349 

C ABL 2 350 

CALL CPMI K( TVAR,NN,CPMXJ ABL 2 351 

GASCP=CPMX/AVGFW ABL 2 352 

GOTO 113 ABL 2 3 53 

C ABL 2 354 

C ARL 2 355 

C IJSF SUBROUTINE CHAR PR TO GENERATE NEEDED PHYSICAL PROPERTY ABL2 356 

C DATA FOR THE CHAR ZONE (HEAT CAPACITY OF THE CHAR AND THE ABL? 357 

C. OVFR ALL EFFECTIVE THERMAL CONDUCTIVITY OF THE GAS AND CHARI. ABL 2 358 

C ABL 2 359 

C ARL 2 360 

102 CALL CHARPR ABL 2 361 

IF( I Nf) » F Q . 0 ) DTC = QCZ I /C DO ABL? 36? 

!ND = 1 ABL 2 363 

C ABL 2 364 

C ABL 2 365 

C CALCULATE THF BULK DENSITY OF THE CHAR ABL 2 366 

C ABL 2 367 

C ABL 2 368 

C ABL 2 369 

C ROC H AR = BUL K DENSITY OF THF CHAR(LBS/FT**3) ABL? 370 

ROCHAR=f WTOTAL-W) /VR ABL 2 371 ^ 

C ABL 2 372 

DELZ=H ABL 2 373 C 

C. ABL 2 374 



r> o o o n n n n n n o n n n ^ 


C ALGOL A TE THE CHEMICAL KTNFTTOS HE THE PYROLYSIS GASES 
AND CHAR ALONG WITH THE HEAT ARSORB RY THFSE REACTING 
GASES USING KINET. 


103 CALL KINET 
H 1 1 = H 

GA$CP=C PMXl /AVGE W 


CALCULATE THE GROUP TERM 


112 R E AC T=R E AC ? /D TC. 

CONVEG=W*GASCP 
CPB1 =CPB 1+CON VFG*DFLTFF 
CONVES=CP S*POCHAR*VP 
C PB2=CP B2+C0NVE S*DE LTFF 
REAC1=RFAC1+REACT*0FLTFF 

C.ROUP= ( CONVEG+CONVE S-OCOO*DTC+R E ACT ) /CDO 


DC DO=DF R I VA T I VF OF COO WITH TFM PE RA TUBE C BTU / F T-S EC-0F2 1 
COO=EFFECTI VF THERMAL CONDUCTIVITY! RTU/FT-S EC-OFI 
C. OTC = GRAD I ENT OF TEMPERATURE WITH DT ST ANCF ( OF/ FT ) 

C VR = SURF ACE RECESSION VEL OC I TY ( FT/ S EC ) 

C 

C 

GO TOll A 
11 3 Q2=0/DTC 

IFI0 2.lt. 0. ) Q2= 0. 

CON VFG= W*G A SC P 
CON VFV=CPV*RHO*VR 


ABL 2 

37*5 

ABL2 

376 

ABL 2 

377 

ABL 2 

378 

ABL? 

379 

ABL 2 

380 

ABL 2 

381 

ABL? 

382 

ABL? 

3B3 

ABL 2 

38* 

ABL? 

385 

ABL? 

3 86 

ABL? 

387 

ABL ? 

388 

ABL 2 

3 89 

ABL? 

390 

ABL 2 

391 

ABL? 

39? 

ABL ? 

393 

ABL? 

394 

ABL 2 

395 

ABL 2 

3 96 

ABL 2 

397 

ABL 2 

398 

ABL? 

399 

ABL? 

400 

ABL ? 

401 

ABL 2 

4"2 

ABL 2 

403 

ABL? 

404 

ABL ? 

406 

ABL? 

406 

ABI ? 

407 

ABL ? 

408 
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o o o o o 


c 

114 


115 


117 


Ql=Ql+Q2*DELTFF 

ARL 2 

409 

GROUP= ( C0NVFG+C0NVEV-DCD0V*DTC+Q2 > /CDOV 

ABL2 

410 


ABL 2 

411 


ABL 2 

412 

THE ABOVE group term IS USED DURING THE DF POLYMERIZATION OF 

ABL 2 

413 

THE VIRGIN PLASTIC COMPOSITE. 

ARL 2 

414 


ABL 2 

415 


A B L 2 

416 

A=DTC 

ABL 2 

417 

o 

II 

J> 

ABL 2 

418 

ark=h*dt 

ABL 2 

419 

A1 = ARK 

ABL 2 

420 

DA l=ARK*GROUP 

ABL 2 

421 

DT=A+0. 5*DA 1 

ABL 2 

422 

AR K=H*OT 

ABL 2 

423 

A 2 = A R K 

ABL 2 

424 

DA 2 = ARK*GROUP 

ABL 2 

425 

O T=A +Q . 5*DA 2 

ABL 2 

426 

ARK=H*DT 

ABL 2 

427 

A3=ARK 

ARL? 

428 

OA3=ARK*GR0UP 

ARL 2 

429 

DT = A +D A 3 

ABl. 2 

430 

ark=h*dt 

ABL 2 

431 

A 4= ARK 

ABL 2 

432 

DA 4= ARK *G ROUP 

ABL 2 

433 

OTC = DTC +( DA 1 +2 . * ( D A2+D A3 1 +DA4 ) /6 . 

ARL 2 

434 

IF( IN'D.EQ. 0IG0T0115 

ABL 2 

435 

QCZ=cnn*DTC 

ARL 2 

436 

TPR F V= TC 

ABL? 

437 

IF* H.LT.O. 8E- 8 ) GQTOl 1 7 

ABL 2 

438 

TC=TC + ( A 1+2 .*( A2+A3I+A4) /6. 

ARL? 

439 

GOTO l l 8 

ABL? 

44Q 

IF ( KID. EG. 0) TTTT=TC 

ABL? 

4M 

K 1 0=1 

ABL 2 

44? 
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noon n 


DTCO0TC &BL? 

T TT T= T T TT+H 1 1 *DTCC ABL2 

tc=tttt abl? 

118 DEL TFF=TC-TPRFV ABL? 

D£LTK=DELTFF/1. P ABL2 

ABL? 
ABL 2 

COMPARE THE TEMPERATURE CALCULATED WITH THE MAXIMUM VALUE. ABL 2 

ABL 2 
ABL 2 

138 ZPREV=ZZ ARL 2 

Z2=Z7+Hll ABL2 

H 1 1=H ABL 2 

Z=ZZ ABL? 

IF ( TC .GT.TFMAXJGOTOl 50 ABL 2 

N=N + 1 ABL 2 

TF< TVAR.LE.TCHAR 1Z?=ZZ ABL2 

TF( TVAR .l.E. TCHAR IGOTOlOl ABL? 

I F ( 7 ? • GT. Z Z ) GOTO 1 r ' 1 ABL? 

140 PRINT 142, TC,H,DTC, GASCP,DCOO, GROUP, REACT, CDO ABL 2 

142 FORMAT! IX, * TF=’F9.4,* H='£14.6, * 0T = »E11.5,* CP='F6.4,' DK E= ' F 1 1 ABL 2 

1.5,' GRP='E 12.5 » * 0= 'E 1 1 . 4 » * KE='E11.5> ABL 2 

PRINT 1 1 40, AVGFW.W, TVAR f KMAX ,C PS ,G ASCP, RHO, QC Z ABL 2 

1140 FORMAT! 1 X, •AVGFW=*F 7.3,' W=*F 7.5, . • TVAR='F7.2, ABL 2 

I * KMA X= 1 T 5 t • C P S = ' F 6.3,' GASCP='F 6.4,' RH0='F8.4 f » OC7=*F7.2 ) ABL? 
Z2=Z2+Zt NC. ABL? 

Z 1 ( K 1 ) = Z PR F V ABL 2 

T0K(K1)=TVAR ABL? 

T 1 ( K 1 ) = TPRE V ABL 2 

CHAR DAM K 1)=R0CHAR ABL 2 

C ABL 2 

C ABL? 

C STORE THE TEMPERATURE PROFILE FUR LATER USF IN THE SOLUTION ABL? 

C OF THE MOMENTUM EQUATION. ABL? 


443 

444 

445 

446 

447 
44B 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 
4 74 
4 75 
476 
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r> o n 


C. 

c 

PRINT 1 5 3 » R E AC 1 t C PB 1 »C PB? , 7 PR f V 
153 FORMAT! IX* • PE AC l =*DI5. 7, • CP8 l = • D1 5 . 7 , • CPB2='D15.7, 

1' ZPREV= ’E 1 5. 7/) 

K1=K1+1 

I F ( K, 1 . G E . 2901 K1 =290 
C 

C THE NUMBER OF 0 I MENSI ONE S OF TABLE, T1 AND Zl. 

G 

C KI SHOULD NEVER BE GREATER THAN 299 TO AVOID VIOL ANT ING THE 

GOTOIOI 

C 

150 TL=TC 

WFINAL=W 

c tl=final temperature 

PRINT 1 1 40 , A VGE W , W , TVAR , K MA X ,C PS ,G ASCP , R HO , OC Z 

PRINT 142, TC ,H,DTG ,GASGP,DCD0, GROUP, REACT ? CDO 
PRINT 1 53,RFAC1 , CPR1 ,CPB2 , ZPREV 
T0K(K1)=( TC+459.69) /1.8 
T1(K1) = TL 
CHAR DN ( K 1 I =R OCHA R 
C 

C 4 4*** ********************************************************* ******** 
0 ********* ********************** *********** ******************** ******** 

* 

THE TEMPERA T1.IRF PROFILE HAS BEEN DEFINED 4 

* 

C ****************** **************************************************** 

E************ **** ** ** ************************************************** 

C 

DEL TT=TL-T1 ( 1 ) 

C OELTT=TFMPERATURE DROP ACROSS THE. CHARIOF) 

Zl(Kl)=ZZ 


ABl 

? 

477 

ARI. 

? 

47B 

ARL 

2 

4 79 

ABL 

2 

4 80 

ABL 

2 

481 

ABL 

2 

4B2 

ARL 

2 

483 

ABL 

2 

484 

ABL 

2 

485 

ABL 

2 

486 

ABL 

2 

487 

ABL 

2 

488 

ABL 

2 

489 

ABL 

2 

490 

ABL 

2 

491 

ABL 

2 

492 

ABL 

2 

493 

ABL 

2 

494 

ABL 

2 

495 

ARL 

? 

4 96 

ABL 

? 

497 

ABl 

2 

498 

ABL 

2 

499 

ABL 

2 

500 

ABL 

2 

50! 

ABL 

2 

502 

ABL 

2 

503 

ABL 

2 

504 

ABL 

2 

505 

ARL 

2 

5^6 

ABl. 

2 

507 

ARL 

? 

508 

ABL 

2 

509 

ABL 

2 

510 
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c ARL2 511 

C ABL? 512 

C PRINT THE TEMPERATURE AND THE DENSITY PROFILE ABL 2 513 

C. ABL 2 514 

C ABL 2 515 

PRINT 154 ABL 2 516 

154 FORMAT* lHl f 7X,*TIOF)«» 9X,'T(0K)', 11X,'Z') ABL 2 517 

DO 156 I =1 » K1 ABL 2 51B 

PRINT 155, Tl(I) tTOK(I) ,Z1<I» ABL 2 519 

155 FORMAT! IX, 4E15. 71 A8L2 520 

156 CON TINUE ABL 2 521 

0 I S T AN = 7. 1 C K 1 ) -Z 1 ( 1 > ABL 2 522 

C ABL 2 523 

C 0 1 S TAN IS THE THICKNESS OF THE CHAR. ABL 2 524 

C CALCULATION OF THE PRESSURE PROFILE IN THE ABL 2 525 

C CHAR USING ST MP SON'S RULE FOR THE INTEGRATION ABL 2 526 

C OF THE MOMENTUM EQUATION FOLLOWS. ABL 2 527 

C ABL 2 528 

J S=3 9 ABL 2 529 

C ABL 2 530 

C J S = NUMBER OF SLICES IN THE CHAR ABL 2 531 

C ABL 2 532 

HS=0 I STAN/FLOAT ( JS) A BL 2 53* 

C ARL 2 534 

C H$= INCREMENT OF GRID! IN FEET! ABL? 535 

C ABl. 2 536 

C ABl 2 53 7 

C INITIALIZE ABL 2 538 

C ABl 2 530 

C ABL 2 540 

SIMPI=0. ABl? 541 

SI M P ? = T . ABl 2 54? 

ITEMP=K1 ABL? 543 

C ABL? 544 



c 

f TF MP= TOTAL NUMBER OF TEMPERATURE POINTS STORED 

ARL2 

545 

c 


ABL? 

546 


L $= J S+ 1. 

ABL 2 

547 


WFl.UK( 1 }=Wf 

ABL 2 

548 


l X ( L S J = Z 1 ( K 1 ) 

ABL? 

549 


T P ( L S ) = T L 

ABL ? 

550 


P ( l S ) = P L 

ABL? 

551 

f. 


A B L 2 

55? 

c 


ABL 2 

55? 

c — 

THE INTEGRATION OF THE MOMENTUM EQUATION IS PERFORMED 

ABI. 7 

554 

c 


ABL? 

555 

c 


ABL ? 

556 

c 


ABL ? 

557 

c — 

- — FROM THE FRONT SURFACE OF THF CHAR TO THE RACK SURFACE. 

ABL 2 

558 

c 

THE INTEGRATION OF THE ENERGY FQUATION, ON THF OTHER 

ABL? 

559 

c 

HAND, WAS PERFORMED FROM THE VIRGIN MATERIAL TO THE FRONT 

ABL 2 

56n 

c 

SURFACE OF THE CHAR. BECAUSE THF DIRECTION OF INTEGRATION 

ABL 2 

561 

c 

Or BOTH EQUATIONS ARE DIFFERENT IT IS NECFSSARY TO RF- 

ABL 2 

56? 

c 

DEFINE 1=0, AT THE FRONT SURFACE OF THE CHAR. 

ABL 2 

563 

c 


ABL? 

564 

c 


ABL 2 

565 


ACONU2 . 6693E-3 

A BL 2 

566 


A CON 5=2.42/3 600. 

ABL 2 

567 


ACON 7=778. 16/32.2 

ABL? 

568 


M$=20 

ABL 2 

56° 


MS T MP I =H S / F 1.0 AT (MS I 

ABL 2 

570 


M° = M S+- 1 

ABL? 

571 


DO? 60N= 1 , J S 

ABL 2 

57? 


NBAR=N-l 

ABL 2 

573 


hn=nbar 

ABL? 

574 


LO=LS-NRAR 

ABL? 

575 


7 *( LO | = Z XI L S I -HN#HS 

ABL? 

576 


ZY! MP)=ZX(LO) 

ABL? 

577 

c 


ABL 2 

57R 



r> o r> r> o o r> o n o o o n o o o o rt r> n o r> o 


DEFINE MP AS THE TOTAL NO. OF POINT OVER WHICH SIMPSONS'S 
RULE IS TO 8F APPLIED 


DO 2.4 1 M = 1 f HP 
M8AR=M-1 
HM=M8AR 
MO=MP-MBAR 

Z Y ( MO) = ZY( Mp>-HM*HSIMP1 
ZVAR=ZY(MO) 

IF (Z VAR .LF.Zl(l) )ZVAR=71(1) 


FOR A SPECIFIED CHAR DISTANCE OBTAIN THF 
CORRESPONDING TEMPERATURE FROM THE TEMPE- 
RATURE PROFILE 

CALL INTRPLIZVAR.Zl , T1 , I TF MP , T VI S > 

TV I S IS THF INTERPOLATED TEMPERATURE IN OF 
WHICH CORRESPONDS TO THE VALUE OF ZVAR 

TK=< 459. 694-TVI S) /l . 8 

TK= TEMPERATURE IN KFLVIN 


DO?''ST = l * NC 
TKE = TK/F<( I ) 


FOP THE VALUE OF INTERPOLATED TEMPERATURE FIND 

THE CORRESPONDING COLLISION INTEGRAL TO CALCULATE 

THE PURE GAS VISCOCITY USING THE METHOD OF W I LK E- JOHNSON 


A RL 2 

579 

ABL 2 

580 

ABL 2 

581 

ABL 2 

582 

ABL? 

583 

ABL? 

584 

ABL 2 

585 

ABL ? 

586 

ABL 2 

587 

ABL? 

588 

ABL 2 

5 89 

ABL? 

590 

ABL 2 

59! 

ABL 2 

592 

ABL 2 

593 

ABL 2 

594 

ABL 2 

595 

ABL 2 

596 

ABL? 

597 

ABL? 

598 

ABL 2 

599 

ABL? 

600 

ABL 2 

601 

ARL? 

60? 

ABL 2 

603 

ABL 2 

60* 

ABI. 2 

605 

ABL 2 

606 

ABL 2 

607 

ABL 2 

608 

ABI 2 

609 

APL 2 

610 

ABL 2 

611 

ABL 2 

612 
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non noon n non 


? 0 5 
206 


215 

216 

217 


218 


CALL INTR.PL ( TKE , X TKE , ZOMG A , NO AT A , OMGA ) 

ABL 2 

613 


ABL? 

614 

0MGA=C0LLI ST ON INTEGRAL 

ABL 2 

615 


ABL 2 

616 

V T S ( I )=2.6693F-3*S0PT(FW< I > *TK) / (SIG( I )**2*0MGA ) 

ABL 2 

617 

TVAR = TK 

ABL? 

618 

DO ? 1 8KL = 3« NN5 

ABL 2 

619 


ABL? 

620 


ABL? 

621 

-INTERPOLATE FOR THE DATA GENERATED IN KINET 

ABL 2 

622 


ABL 2 

623 


ABL 2 

624 

CALL INTRPL ( TVAR , TABLE ( 1 , 1 ) f T ABLE ( I , KL 1 , KMAX, VAR Y » 

ABL 2 

625 

IF (KL.GT .4IG0TO216 

ABL2 

626 


ABL 2 

627 

KMAX=NUMPER OF DATA POINTS STORED 

ABL2 

628 


ARL 2 

6?9 

IF( KL.EQ.4IG0T021 5 

ABL 2 

630 

A VGE W=VAR Y 

ABL 2 

631 

GO TO 2 1 8 

ABL 2 

63? 

W=VARY 

ABL 2 

633 

GOTO? 1 8 

ABL 2 

634 

Y(KL-4) = VARY 

ABL 2 

635 

IF( VARY.GT.O, IG0T021 7 

ABL? 

636 

Y I K L - 4 1 = l . c - 7 C 

ABL 2 

637 

TF( M ,GT. 1IG0T02I 8 

ABL 2 

638 

TPI LOI-TVl S 

ABL ? 

639 

WFLUXI LO) =w 

ABL? 

640 

kyco.mp-kl-a 

A RL 2 

641 

YC.OMP( KYC0MP ,I„0) =Y( KYC0MPI 

ABI 2 

642 

CONTINUE 

ABL ? 

643 

VMT X-D. 

ABL 2 

644 

DO? 3 6J = 1 t NC 

ARL 2 

645 

teqm=i . 

A 8L 2 

646 
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onn 


no?3'M_=! ? Mr 

I F ( L .f*Q . J I ROT 0230 

T0PV = ( 1 .+SQRK VIS( J) /Vise L) 1 *S0RT< SORT <FW(L)/FW( JM 11**2 
PQTV= S0RT(?. ) *SQRT(1 ,+FW( J)/FW(L) J*2. 

PM! V=T0PV/80TV 
TFPM=TERM+PHIV*(Y(L) AY( J ) 1 
230 CONTINUE 

VMI X=VM I X + VI S< J ) /TERM 
236 CONTINUE 
C ACQN5=2 .42 /36CC. 

238 VI SC0S=VMT X*AC0N5 

239 PROD (MO )=TVIS*VI SC0S*W/A VGF W 
TT(MO) = TVlS/AVGFW*( W**2) 

241 CONTINUE 

ZX(L0-1 ) = ZX(LQ)-HS 

1 

COMMENCE SIMPSON'S RULE INTEGRATION 

SUM 1=0. 

SUM?--"'. 

SUM 3 = 9. 

SUM4=0, 

MOOD = MP-2 

DO 2 5 5KP = 3 * MOOD* 2 

SUM V= SUM 1+2. *PPOO (KP) 

259 SUM 3 = SUM3 + 2 . *TT ( KP ) 

ME VE >N=MP — 1 

00 2 56KP = 2 » ME VFN » 2 

SUM?=SUM2+4. *PPOn ( KP) 

256 SUM4=SUM4+4.*TT(KP) 

SIMP 1 = ( MS IMP I /3. 0) *< PROD ( 1 ) + SUMl+SUM2 + PROEM MP)) *S TMP1 
S IMP2=( HSIMPI /3.0)*( TT(! )+SUM3+SUM4+TT( Mp) ) +s IMP? 

C FR 2= 778. 1 6/32.2 

P( LO-l )=SQRT ( PL**?+< 2.* PR) *FR2* ( A L PH A *S IMP1+8ETA*S IMP?) ) 


a Bt 2 

647 

ABL 2 

648 

ABI 2 

649 

ABL? 

650 

ABL 2 

651 

ABL 2 

65? 

ABL 2 

653 

ABL 2 

654 

ABL 2 

655 

ABL 2 

656 

ABL? 

657 

ABL? 

658 

ABL? 

659 

ABL? 

660 

ABL? 

661 

ABL? 

66? 

ABL? 

663 

ABL ? 

664 

ABL ? 

665 

ABL? 

666 

ABL 2 

667 

ABL 2 

668 

ABL2 

669 

ABL 2 

670 

ABL 2 

671 

ARL 2 

67? 

ABL 2 

673 

ABL ? 

6 74 

ARL 2 

675 

ABL 2 

676 

ABL? 

677 

ABL 2 

678 

ABL ? 

679 

ABL? 

680 
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260 CONTINUE 


ABL 2 

C ABL 2 

C ABL 2 

C CALCUL4TF THE SURFACE HEAT FLUX , QL » THE RFRADI AT ION, OR, ABL 2 

C AND THE TOTAL AERODYNAMIC HEATING, QA. ABL 2 

C ABL 2 

r ABL 2 

261 QL=QC7 ABL 2 

262 QR=EMTS*STGMA*(TL+459.69)**4 ABL2 

QA=OL'*-QR ABL 2 

C ABL 2 

TPI1) = T1I1I ABL 2 

C ABL 2 

C PRINT OUTPUT ABL 2 

C ABL 2 

2603 PRINT 597 ABL 2 

597 FORMAT! IH1 ////////) ABL 2 

5982 PRINT 5984 ABL 2 

5984 FORMAT! 35X, ' INDEPTH FLOW ANALYSI S ! NON-E OU IL I BR IIJM FLOW)'//! ABL 2 

5986 PRINT 5990 ABL2 

5990 FORMAT! 12X,51H THEOP ET IC AL /ABL 2 

1/) ABL 2 

PRINT 60 0,T1(1) ,NC ABL 2 

600 FORMAT! 1RX, 'CHAR BACK TEMPERATURE ! OF ) = • F7 . 1 , 13X , • NUM BFR OF GAS C0ABL2 

1MP0NENTS=M3/) ABL 2 

THICK=0 ISTAN*12. ABL? 

THICK 1=711 11*12, ARL 2 

PRTNT 602, THICK, THICKI ABL 2 

602 FORMAT!! I.8X, 'THICKNESS OF C.HAR( INCHES ! = , F8.6,6X,* THICKNESS OF DECOMABL 2 

IPOS I TI ON Z0NE='F8.6/I ABL? 

QC 7 7 = QC Z-QC 7 I ABL 2 

PRTNT 604 t WTOTAL » WFLUX ( LS l ARL 2 

604 FORMAT! 1«X, 'TOTAL MASS F LUX I L BS/ FT2 -S EC » = • F7 . 6 , 6X, 29HG A S MASS FLUXARL 2 

1 AT THE SURFACE-, lX,F7.6/> ABL 2 


681 

682 

683 

684 

685 

686 

687 

688 
6 89 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 
70 ! 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 
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o n o 


611 

603 

605 

606 

607 

608 
610 
5 86 


PRINT 6 1 1 f TF M A X t VR ABL 2 

FORMAT! IBX, ‘FRONT SURFACE TEMPE P.ATUR E !D F ) = • F6 . 1 , 5X ♦' SURF ACE P FCESSABL 2 


1 1 ON VEL OC I TY ( F T / SEC ) = ' F 7 • 5 / I 
PRINT 6 03 » OC Z 7 » OC 7 I 
FORMAT(25X» 'RATE OF HEAT ABSORBED 
IF9.W/25X, ‘RATE OF HEAT ABSORBED 
2 2-SFC>='F9.4/) 

HC H A P - 0 C. Z Z / OC Z * ! 00 • 

HDEC0M-0C7T /QCZ*100. 

$UM=R E AC 1 +C PB 1>CPB? 

HO A S=CPR1/SUM*100. 

HSOL I D=CPB2 /SUM*1 00. 

HRE ACT=REAC 1 /SUM *100. 

PRINT 605 »HCHAR 
FOR, MAT(25X, ‘PERCENT OF TOTAL 
1/) 

PRINT 606»HDEC0M 
FORMAT! 25X, 'PEPCFNT OF TOTAL 
PRINT 607.HGAS 
FORMAT! 25X» 'PERCENT OF HEAT 
IE 15. 7/| 

PRINT 6 08 t HSOL I D 
F0RMATI25X, ‘PERCENT OF HF AT 
IF= 'E 15. 7/> 

PRINT 6 1 0» HRE AC T 
FORM AT! 25Xf ‘PERCENT OF HF AT 
1 • E 1 5 . 7/ ) 

PR TNT 586 
FORMAT! 1 H 1- 1 


TOTAL HEAT 


TOTAL HEAT 


HEAT ABSORBED 


HEAT ABSORBED 


HF AT ABSORBED 


ABL 2 
ABL 2 

IN THE CHAR ZONE! BTU/FT2-SFC )= • ABL 2 

IN THE DECOMPOSITION 70NF ( BTU/FTABL 2 

ABL 2 
ABL 2 
ABL 2 
ABL 2 
ABL 2 
ABL 2 
ABL 2 
ABL 2 

ABSORBED IN THE CHAR ZONE= • E 1 5 . 7A BL 2 

ABL 2 
ABL 2 

ABSORBFD IN DECOMP-ZONE= • FI 5.7/ > ABL 2 

ABL 2 

ED BY THE GAS IN THE CHAR Z0NF='ABL2 

ABL 2 
ABL 2 

ED BY THE SOLTDS IN THE CHAR Z0NABL2 

ABL 2 
ABL 2 

ED BY RFACTION IN THE CHAR 70NE=ABL 2 

ABL? 
ABL 2 
ABL 2 


ABL 2 

PRINT OUTPUT PARAMETERS CORRESPONDING TO JS» GRID SIZF ABL 2 

ABL 2 

I K E = 1 ABL 2 

M! KF. = 5 ABL? 


477 



260? 

266? 

2650 

2651 

2652 

2653 

2 654 
265 
2 720 

2721 

2730 

2723 

2724 

- 2728 
2727 


L I K F = t 
PRINT 597 
PRINT 5984 

IF ( L IKE «GT • 1 ) GO TO 265 
PR INT2650,DELTT 

FORMAT! 35X»23HTE MPE R ATURE DROP (OF) =,lX,F20.1/> 
r)ELP = (P(l)-PL) 

PR I N T2651 » DEL P 

FORMAT! 35X f ?4HPRE SSURE DROP (LB/FT2) =,1X,F19.1/) 
PRTNT2652.0L 

FORMAT! 35X,33HSURFACE HEAT FLUX ( BTU/FT2-SEC ) =,1X,F 
PR I N T? 653 » OR 

FORMAT! 35X,3?HRA0I ANT HEAT FLUX BTU/ FT2-S EC ) = ♦ 1 X , F 1 1 
PRINT2654,0A 

FORMAT! 35X,35HAER0DYNAMIC HEAT FLUX ( BTU/FT2-S EC ) = , 1 X 
PRINT2 720,! Z X( KK) , KK= I KE , MI KE ) 

FORMAT! 14X t 15HCHAR DEPTH ( FT ) , 6X , 5F 1 3 . 4 ) 

PRINT2721 , ! TP(KK) , KK=I KE , MI KE ) 

FORMAT! 14X, 1 6HTEMPFRATURE <OF),5X,5F13.1) 

PR INT2739 f < PC KK) , KK = I KF f MIKE) 

FORMAT! l4X t l 7HPRESSURE C LB/FT2 ) ,4X ,5F 13. 1 ) 

PRINT2723, ( WFLUX! KK) ,KK=IKE »MTKE ) 

FORMAT! 14X, 21 HMASS FLUX ( LB /FT2-S FC ) » 5F 1 3 . 4/ ) 

PRINT? 7 24 

FORMAT!! 4X,66H GAS COMPONENT 
1 MOLE /MOLE GAS)/) 

TF(KFY.GT.l ) GOTO 2 72 7 
DO 2723 KICK=l f LS 
DO 2 7? 8LL = 1 »NS 
VC0MP(LL,KICK)=YI(LL) 

CONTINUE 

DO? 7?9LL = 1 » NS 

YCOMP ( L L » 1 ) =Y I ( LL ) 

PRINT 27?5,LL»SPC IF1 ( LL ) ,SPCI E?(LL) . < YCOMP ( L L , KK ) .KK 



ABL 2 

749 


ABL 2 

750 


ABL? 

751 


ABL 2 

752 


ABL 2 

753 


ABL2 

754 


ABL 2 

755 


ABL 2 

756 


ABL 2 

757 


ABL 2 

758 

10.2/ > 

ABL2 

759 


ABL 2 

760 

. 2/ ) 

ABL 2 

761 


ABL 2 

762 

•F8.2//I 

ABL 2 

763 


ABL 2 

764 


ABL 2 

765 


ABL 2 

766 


ABL? 

767 


ABL? 

768 


ABL 2 

769 


ABL 2 

770 


ABL 2 

771 


ABL 2 

772 

COMPOSITION 

( ABL 2 

773 


ABL? 

774 


ABL? 

775 


ABL? 

776 


ABL 2 

777 


ABL? 

778 


ABL 2 

779 


ABL 2 

7 80 


ABL? 

781 

= IKEtMlKF) 

ABL 2 

782 
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2 7? 5 FORMAT ( l 2X , I ? , 2 X , 2 A3 , 1 1 X ,5E1 3 ,4 ) 
2129 CONTJNVJE 

IF( MIKE.GF.LSJGO TO 2800 
L TKE=L IKE+1. 

MIKE = M| KE + 5 
I KE = T KE + 5 
GO TO 2602 
2800 PRINT586 
300 STOP 
END 


ABL 2 783 
ABL 2 789 
ABL 2 785 
ABL 2 786 
ABL 2 787 
ABL 2 788 
ABL 2 789 
ABL 2 790 
ABL 2 791 
ABL 2 792 



o o o n on on 


SUBROUTINE CPMI X( T,NN,CPMX) 

C 

C 

C THTS SUBROUTINE COMPUTES THE MOLAL HEAT CAPACITY 

C. OF A NON-REACTING GAS. IT IS ONLY USE FOR THE 

C FROZFN FLOW CASE. 

COMMON/KB/A I ( 301 ,B 1(30) ,CII 30 1 ,D 1(30 ) ,FI(30),A 111301, 
l R 1 1< 30) ,CTK30I »0T I( 30) ,EI H30 ) ,TLOW( 30 \ 

COMMQN/KM/XMQL I 30 J 
DIMENSION CPI 30) 

RR=1. 98726 

CPMX=HE AT C.APCITYI BTI I /LB- MOLE -OF I 


CALCULATE THE HEAT CAPACITY OF EACH INDIVIDUAL SPECIE. 


C PM X= 3 . 

DO 3 1 = 1 » N N 

IF! T.GT.TLOWI I } IGOTOl 

CP(I)=(ATim + tIfEII(I I * T ♦ D I 1 1 1 1) *T+C 1 1 1 1 I) *T+B IT C I M*T >*RP 

GOTO 2 

1 C.P (I )=( AT m + f (IF I I I ) *T + 0 1 1 I I )*T+CI III >*T+BI( I) >*T)*RR 

2 CPMX=CPMX+CP( II *XMOL(T ) 

3 CONTINUF 

return 

END 


C PM T 

1 

CPMI 

2 

CPMI 

3 

CPMI 

4 

CPMI 

5 

CPMI 

6 

CPMI 

7 

CPMI 

8 

CPMI 

9 

CPMI 

in 

CPMI 

u 

CPMI 

12 

CPMI 

13 

CPMT 

14 

CPMI 

15 

CPMI 

16 

CPMT 

17 

CPMI 

ie 

CPMI 

19 

CPMI 

20 

CPMI 

21 

CPMI 

22 

CPMT 

23 

CPMI 

24 

CPMI 

25 

CPMI 

26 

CPMT 

27 

CPMI 

28 

CPMI 

29 
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no on ooooo 


SUBROUTINE I NDPTH ! TC , CDOV , OCDOV , GASC P , Q, CPV , RHO, T VAR, 
C 

I QELTKK,N,DELZ,VR,W,H) 

C 

DIMENSION ORHODT ( 5 I 

INOEPTH SUBROUTINE CALCULATES THE PHYSICAL PROPER- 
TIES FOR THE VIRGIN MATERIAL AND PYROLYSIS GASES* 

T=TEMPE RATURE IN FARENHEIT. 

IF ( N*GT . I JGOTG2 
DCDOV=.338983E-8 
REAO 1,A,8,C,0,E 

A THROUGH E ARE CONSTANT FOR THE HEAT CAPACITY OF THE 
VIRGIN MATERIAL. 

1 FORMAT! 5EL2. 61 

CDO V=THER MAL CONDUCTIVITY OF THE VIRGIN MATERIAL 
( BTU/(FT-SEC-OF)) 

2 CDOV= I. 266l02E-5+.338983E-8*TC 

C DCDO V=RA TE OF CHANGE OF CDOV WITH THEMPER ATURE. 

T= TC 

IF! T.GT.75C. IG0T03 
T2=TC*T 
T3=TC*T2 
T 4= TC*T3 
C 

C CP V= HE AT CAPACITY OF THE VIRGIN MATER IAL ( BTU/LB-OF ) 

C P V= A *R * T+C *T 2 +D *T3 ♦ E *T A 
3 IFIDELTKK.GT.2. ) H=H*2 . /DE LTKK 
C 

CALL PHMCR! T VAR , DE L TKK , Q PHNLC , QMI CRH , N) 

C 

IF!TVAR.GE.789. IG0T02G0 
C 


INDP 

1 

INOP 

2 

INDP 

3 

INDP 

4 

INDP 

5 

INDP 

6 

INDP 

7 

INDP 

8 

INDP 

9 

INDP 

10 

INDP 

11 

INDP 

12 

INDP 

13 

INDP 

14 

INDP 

15 

INDP 

16 

INDP 

17 

INDP 

18 

INDP 

19 

INDP 

20 

INDP 

21 

INDP 

22 

INDP 

23 

INDP 

24 

INDP 

25 

INDP 

26 

INDP 

27 

INDP 

28 

INDP 

29 

INDP 

30 

INDP 

31 

INDP 

32 

INDP 

33 

INDP 

34 
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CALL NYLON( TVAR,DELTKK, QNYLON) 

GCJTO2L0 
2 CO QNYL0N=O. 

C 

210 CALL ONSI TY(RHO t TVAR , DE LZ , VR , N, ORHODT , W , H ) 

0= l QNYLON*ORHODT ( 1) +QPHNLC*DRHODT (2 ) ♦ QMI CRO*DRHQDT 1 3>l* I- 1.8* 

RETURN 

ENO 


I NDP 35 
INOP 36 
INDP 37 
INOP 38 
INDP 39 
INDP 90 
INDP 91 
INDP 92 
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o o o o o o ooon 


507 


SUBROUTINE CHARPR 

CHAR 

1 

CHARPR SUBROUTINE CALCULATES THE EFFECTIVE THERMAL 

CHAR 

2 

CONDUCTIVITY AND-HEAT CAPACITY OF THE CHAR. 

CHAR 

3 


CHAR 

A 


CHAR 

5 

COMMON /KF /C PS »COO »OCDO « JCHAR , TC 

CHAR 

6 


CHAR 

7 

T=TEMPERATURE IN RANKINE 

CHAR 

8 

TC=TEMPERATURE IN FARENHE I T 

CHAR 

9 

CP S= HE AT CAPACITY OF CH AR ( BTU/LB-OF ) 

CHAR 

10 

CDO=EFFECTI VE . THERMAL CONDUCT! VI TY ( BTU/FT-SEC-OF ) 

CHAR 

11 

DCDO=RATE OF CHANGE OF CDO WITH TEMPERATURE 

CHAR 

12 


CHAR 

13 

TC2=TC*TC 

CHAR 

1 A 

TC3=TC2*TC 

CHAR 

15 

IFITC.GT.2500.I GOTO507 

CHAR 

16 

T=TC ♦ A59. 7 

CHAR 

17 

CPS = 0.A3+-3.6E-5*T-87.2E3/(T*T) 

CHAR 

18 

IF( TC .LT. 1000. )CPS=0.39 

CHAR 

19 

CP S= 0. 52 

CHAR 

20 

CDO=ll.57E-5+5.3E-l5*TC3 

CHAR 

21 

DCD 0= l 5 . 9E - 1 5* TC2 

CHAR 

22 

RETURN 

CHAR 

23 

END 

CHAR 

2A 
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o r» o r» o r» o n o r> n 


SUBROUTINE PHMCR (T f DFLT,QPHNLC,QMICRO,K6) 

DIMENSION A!4) ,B(4),C!4),D<4),E!4),A1I41,B1 !4),C1<4),0H4),E1!4) 
THIS SUBROUTINE COMPUTES THE HEAT OF PYROLYSIS OF PHFNOLIC, 

BASED ON THE DATA OF SYKES AND NFL SON (T HFRMOANALYS T S OF 
ABLATION MATERIALS) 

I F ( K6.GT. 1 )G0T04 

NUMBERS 

AREA=1350. 

AREA 1= I 4 64 . 

READl, NUMBER , APEA,AREA1 

1 FORMAT ( I 6, 2F 1 0. 8 1 
0021=1 ,NUMBFR 

READ3, A! I) ,611) ,C!I> ,0(1) ,E(I) 

2 READ3, A 1 ( I ) , B 1 U) ,C 1 ( I) ,01 (I) , El ( I) 

3 FORMAT! 5F1 2. 8) 

4 IFfT.LT.623. 1G0T05 
IF! T.GT. 1073. )GOT05 
1 = 1 

IF! T.GT.748. .AND. T.LT.798. ) 1=2 
TF! T.GT.79B. .AN0.T.LT.898. ) 1=3 
IF! T.GT.898. )I=4 
D T= ( T-62 3 . ) 

DT2=DT*DT 

DT3=DT2*DT 

DT4=DT3*DT 

CALCULATE THF HFAT OF PYROLYSIS OF PHENOLIC 10PHN01 ) 

H= A ( I )+B( f)*DT+C( I ) *DT2 + D f I)*DT3 + F(I >*DT4 
QPHNLC=H*DFLT*69.31 2/ARFA 


69. 312= TOTAL HFAT ABSORBED BY THE DECOMPOSITION OF 
PHENOLIC IN C At /GRAM. 

CALCULATE THF HFAT OF PYROLYSIS OF PHFNOLIC MICRO- 
BALL OONS ( QMTCRO) 


PHMC 

1 

PHMC 

2 

PHMC 

3 

PHMC 

4 

PHMC 

5 

PHMC 

6 

PHMC 

7 


R 


9 

PHMC 

10 


11 


12 

PHMC 

13 

PHMC 

14 

PHMC 

IS 

PHMC 

16 

PHMC 

17 

PHMC 

18 

PHMC 

1 9' 

PHMC. 

20 

PHMC 

21 

PHMC 

22 

PHMC 

23 

PHMC 

24 

PHMC 

25 

PHMC 

26 

PHMC 

27 

PHMC 

28 

PHMC 

29 

PHMC 

30 

PHMC 

31 

PHMC 

32 

PHMC 

33 


34 


oo 

•u 




1 = 1 

PHMC 

35 


I F ( T.6T . 713. . AND. T.LT. 798.11 = 2 

PHMC 

36 


I F { T.GT.798. .AND.T.LT.913. ) 1=3 

PHMC 

37 


IF ( T .GT .91 3. ) 1=4 

PHMC 

38 


H= A 1 ( T )+R 1 ( T ) *OT+C 1 ( I M‘0T2 + D1 ( I ) *DT3+E1 ( I )*DT4 

PHMC 

39 


9MTCR0=H*DELT*90. 822 /AREA! 

PHMC 

40 

c 

90. 322= TOTAL HEAT ABSOR BED BY THE DECOMPOSITION OF 

PHMC 

41 

c 

PHENOLIC MICRO-BALLOONS IN CAL/GRAM. 

PHMC 

42 


RETURN 

PHMC 

43 


5 QPHNLC = 0. 

PHMC 

44 


QMICR0=0. 

PHMC 

45 

6 

RETURN 

PHMC 

46 


END 

PHMC 

47 


485 




SUBROUTINE NYLON ( T , DEL T , ONYLON) 

NYLO 

l 

c 

THIS SUBROUTINE COMPUTES THE HEAT OF PYROLYSIS OF NYLON 

NYLO 

2 

c 

BASED ON THE DATA OF SYKES AND NELSONITHERMOANALYSI S OF 

NYLO 

3 

c 

ABLATION MATERIALS) 

NYLO 

A 

c 


NYLO 

5 

c 

SLOPF= SLOPE OF LINE OBTAIN FROM SYKES AND NELSON'S OATA. 

NYLO 

6 


QNYL0N=0. 

NYLO 

7 


SLOPE = 0. 6086957 

NYLO 

B 

r. 


NYLO 

9 


AREA=1122. 

NYLO 

10 

c 

ARFA=AR E A UNDER CURVE OF F IGURE-2 C DI FFERENT I AL THERMAL 

NYLO 

11 

c 

ANALYSIS) BY SYKES AND NELSON 

NYLO 

12 


C0NST=150. 5738/AREA 

NYLO 

13 


I FT T.LT.6A7. JGOTOA 

NYLO 

1A 


I F( T.GT. 699. )G0 TO2 

NYLO 

15 


I F ( T.GE.689. .AND. T.LE.699. )G0T01 

NYLO 

16 


H= SLOPE*! T- 6A7. ) 

NYLO 

17 


GO TO 3 

NYLO 

18 

l 

H= 2A » A 

NYLO 

19 


G0T03 

NYLO 

20 

2 

DH=SLOPE*( T-693. ) 

NYLO 

21 


H=28.0-0H 

NYLO 

22 


I F ( T.GE .739. )H=0. 

NYLO 

23 

3 

ONYLON=DELT*H*CONST 

NYLO 

2A 

A 

RETURN 

NYLO 

25 


END 

NYLO 

26 


CO 

G\ 



nnoooooo non on 


SUBROUT I NF ' ON SI TY ( RHO, T ,DELZ , VR , K6 , DRHOOT , W, H ) 

C 

C 

c THTS SUBROUTINE CALCULATES THE DENSITY OF PHENOLIC-NYLON 

C COMPOSITES AS A FUNCTION OF TEMPERATURE — BASED ON DATA 

C OF SYKES AND NEL SON ( THERMOANAL YS I S OF ABLATION MATERIALS) 

C 

C 

C 

COMMON/KK/WTOTAL *RHOI I 
REAL*8 RHOT 
C 

DIMENSION RHO I (5! f RHOT (5) » RHOC ( 5 ) , A I 7 ) , E I 7) , RATER (7), 
1DRH0DT ( 5) ,XN< 5,7) , FR AC ( 5 ) , RHOVOL ( 5 ) 

DIMENSION MASFPCI5) ,MASFLX<5) ,V0LUMEf5) , VOLFRC C 5 ) , DEL FL X ( 5 ) 
DIMENSION RHOCCI 5) ,DRHO(5) 

INTEGER COMPST 
REAL MA SFRC , MASF LX 


TF(K6.GT.1)G0T07 

— R E AD INPUT 

R FAD 1 , COMPST, NRFAC.T 
1 FORMAT! 216) 


COMPST=NUM8FR OF COMPOSITE MATERIALS DFGRADING DURING 
ABLATION. 

N R E A C T= NU MR F R OF P SE UDO-K I NF T TC REACTIONS USFD TO DES 
CRIBF THE DEGRADATION OF THE ABLATIVE COMPOSITES. 


ON S I 

1 

DNS I 

? 

DNS I 

3 

DNS I 

4 

DNS I 

5 

DNS I 

6 

DNS I 

7 

ON SI 

8 

DNS I 

9 

DNSI 

10 

DNS I 

11 

DNSI 

12 

DNSI 

13 

DNSI 

14 

DNSI 

15 

DNSI 

16 

DNSI 

17 

DNSI 

18 

DNSI 

19 

DNSI 

20 

DNSI 

21 

DNSI 

22 

DNSI 

23 

DNSI 

24 

DNSI 

25 

DNSI 

26 

DNSI 

27 

DNSI 

28 

DNSI 

29 

DNSI 

30 

DNSI 

31 

DNSI 

32 

DNS T 

33 

DN S I 

34 
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C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

r 

c 

c 

c 

c 


INITIALIZATION OF XN ( I , J 1 » WHI CH IS THE ORDER OF THF 

ON SI 

35 

reaction 

ON S I 

36 


DNS I 

37 


DNSI 

38 

002 J = 1 » NRE AC T 

ONSI 

39 

00 21=1 » COMP ST 

DNS! 

40 

XN(T,J)=0. 

DNSI 

41 


DNSI 

42 

M J » = FREQUENC.Y FACTOR! SEC-11 

ONSI 

43 

E( J )=ENERGY OF AC T I VAT I ON! JOULE /< MOLE >) 

DNS! 

44 


DNSI 

45 


DNS! 

46 

R=8. 314 

DNSI 

47 

R=8.314! JOULE S/( MOLE-OK) 1 

DNSI 

48 

RHOI ( l)=6S. 6! NYLON) 

DNSI 

49 

RHOI ! 2)=RO.O! PHFNOl IC RESIN) 

DNSI 

50 

RHOI ( 3 )= 17. R! PHENOLIC-MICROBALLOONS) 

DNSI 

51 

RHOCI 1 >=68.6*0.075=5.145 

DNSI 

52 

RHOC! 21*80. 0*0. 541=43. 28 

DNST 

53 

RHOC! 31=1 7.8*542=9.6476 

DNSI 

54 


DNST 

55 


DNSI 

56 

MASFRC. ( l ) =0. 4 

DNSI 

57 

MA-SFRCf 2)=0.25 

DNSI 

58 

MASFRC! 3)=0. 35 

DNSI 

59 


DNSI 

60 


DNSI 

61 


DNSI 

62 

INITIALIZE 

DNSI 

63 


DNSI 

64 


DNSI 

65 


DNST 

66 

XN( I * J ) = ORDER PF THE KINETTC EXPRESSION. 

DNST 

67 


DNSI 

68 
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D03J = 1 » NRE AC T 

3 READ A, T,A( Jl ,E(J1 ,XN( I ,J) 

A FORMAT! AX, I6,3E10.8) 

READ 5, (RHOn I ) » RHOC ( I ) ,MASFRC< I ) , T=1,C0MPST» 

5 FORMAT ( 3E 10 • A 1 
C . 

c 

C RHOI II) = INI TIAl. DENSITY OF COMPOSITE I 

r. RHOC ( I ) =R E SI DUA L DENSITY OF COMPOSITE I 

C RHOT (I)=DENSITY OF THE COMPOSITE I AT ANY TEMPERATURE 

C 

C 

C LET RHOT( I >=RHOI (!) AS INITIAL CONDITION 

C 

C 

DO 6 1 = 1 » COMP ST 

RHOCC ( I I = RHOC C I I ♦Q. 00 1* RHOC ( I ) 

MA SFL X( I ) = 0 . 

6 RHOTI I )=RHOI (I) 


CALCUALTE THE VOLUME FRACTION OF EACH COMPOSITE 


SUM VQL=0. 

DO 60 1=1 »COMPST 
VOLUMFI I ) =MA SFRC ( I)/ RHOT (I ) 
60 SUMVOL=SUMVnL + VOLUME(n 
DO 65 T =1 »C OMPST 


VOLEPCI n=VOLUME FRACTION OF FACH COMPOSITE 


DNS I 

69 

DNS T 

70 

DNSI 

71 

DNSI 

72 

DNSI 

73 

DNSI 

7A 

DNSI 

75 

DNSI 

76 

DNSI 

77 

DNSI 

78 

DNSI 

79 

DNSI 

80 

DNSI 

81 

DNSI 

8? 

DNSI 

83 

DNSI 

8A 

DNSI 

85 

DNSI 

86 

DNSI 

87 

DNSI 

88 

DNSI 

89 

DNSI 

90 

DNSI 

91 

DNSI 

92 

DNSI 

93 

DNSI 

9A 

DNSI 

95 

DNSI 

96 

DNSI 

97 

DNSI 

98 

DNSI 

99 

DNSI 

100 

DNST 

101 

DN ST 

102 


C 


65 VOLFRC ( I ) = VOLUME ( I ) /SUMVOL 
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DNST 

COMPUTE THE DENSITY OF THE COMPOSITE ONSI 

DN SI 
DNS! 
ON S l 

RHO=DENST TY OF COMPOSITE DNSI 

RH0=1. /SUMVOL DNSI 

DNSI 
ON S I 

RHO I 1= I N I TI AL DENSITY OF COMPOSITE DNSI 

RHOIl=RHQ DNSI 

DNSI 
DNSI 
DNST 

CALCULATE THE TOTAL MASS FLUX DNST 

DNSI 
DNSI 
DNSI 

WTOTAL=TOTAL MASS FLUX! LBS/FT**2-SEC ) DNSI 

DNSI 

WTOTAL=RHOI l*VR DNSI 

PRINT 66,RH0,WT0TAL DNSI 

66 FORMAT! I X, » INITIAL DENSITY OF COMPOS TTE ( l BS / FT**3 ) = * F 10 . 5, 2X f DNSI 

1 'WTOTAL(lBS/FT**2-SEC)='E15.7/) DNSI 

7 RRR=100O. /(R*T) DNSI 

RH0PRV= RHO DNST 

DO 9 1=1, COMP ST ONSI 

SUM=0. DNSI 

DO 8 J=1 , NR FACT DNSI 

TF( XN( I iJI .EQ.O. IG0T08 DNSI 

C DNSI 

C RATER(J»=SPECIFTC REACTION VELOCITY ONSI 

IF(RHDT( 1) .LE.PHOCII U RHOT (1) =RHOCC (II DNSI 


RATER ( j)=-RHOI (!)*(( RHQT( D-RHOC (II) /RHO I ( I ) ) **XN ( I , J > * A ( J ) *EXP ( - DNST 


103 

104 

105 

106 
107 
10B 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
12? 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 
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' 


IE ( J»*RRR) 

SUM= SUM+R ATER ( J ) 

8 CONTTNUF 

DRHQDT( I ) = SUM 

IFC RHOTC I ) .LE.RHOCCt I ) ) DRHOOT U ) =0 . 
9 CONTINUE 

CONTROLLING STEP SIZE FOR STABILITY 


TE ST=0. 

DO 90 I =1 »COMPST 
OR HO ( I I =-OELZ*DRHODT( I ) /VR 
90 TEST=AMAX1( TFST f DRHO( IM 
IFC TEST.GT.O. l)H=H/2. 

I F( TEST.LT. ,05»H=H*2 
IFl H.GT .2.08E-4) H=2 • Q8E-4 
DELZ=STEP SIZE IN FEET 
IF( VR .GE. I.F-2.AND.H.GT. 1 . E-5 ) H=1 . E-5 
OELZ =H 
RH0=0. 

W= 0 . 

DO 101 = 1 ,COMPST 
OELFLXI I l =-DE LZ *DRHODT ( I ) 

QELFLXl I )=CHANGE IN MASS FLUX DUE TO A CHANGF IN THE 
DENSITY OF THE COMPOSITES. 

RHO T( T ) = RHOT ( I)~DELFLX( T ) / VR 
R HOVOL ( T ) =RHOT ( T )*VOLFRC< I ) 

RHO= RHO+RHQ VOL I I ) 

C R HO = BULK DENSITY OF THE COMPOSITE 

MASFLXI T)=MASFLX( D+DFLFLXl I) 

10 W=W«-MASFLX(!) 

W 1 = ( RHOI I-RHO) * VR 


DNS l 

137 

DNS I 

138 

DNS I 

139 

DNS I 

140 

DNS I 

141 

ON S T 

142 

DNSI 

143 

DNS I 

144 

DNSI 

145 

DNSI 

146 

DNSI 

147 

DNSI 

148 

DNSI 

149 

DNSI 

150 

DNSI 

151 

DNSI 

152 

DNSI 

153 

DNST 

154 

DNSI 

155 

DNSI 

156 

DNSI 

157 

DNSI 

158 

DNSI 

159 

DNSI 

160 

DNST 

161 

DNSI 

162 

DNSI 

163 

DNSI 

164 

DNSI 

165 

DNSI 

166 

DNST 

167 

ONSI 

168 

DNSI 

169 

DNSI 

170 
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W -W1 

DNS I 

171 


no 100 T=1 »COMPST 

DNST 

l 72 

100 

MASFRC! I ) =RHO VOL ( T 1 /RHO 

DNS! 

173 


PRINT 11 ,RHO,DELZ,VR,T,W 

DNS I 

174 

11 

F0RMAT11X, *RHO( OVERALL DENSITY OF ='F10.4,' DEL Z= ' E 10.4, • V= • 

E10. 4, DNS I 

175 


1 ' T='E 10.4, « W='E13. 51 

DNSI 

176 


PRINT 12 

DNS! 

177 

12 

FORMAT! BX, 'VIRGIN MATERIAL)') 

DNSI 

178 


DO 14 1=1 ,r.OMPST 

DNSI 

179 


PRINT 13, I ,RHOT( I ) , I ,DRHOOT( I ) , I ,ORHO(I) , T , MASFRC ( I ) 

DNST 

180 

13 

FORMAT! IX, *RHOT( 'll , *) = 'D12.6, * DROOT f • 1 1 , • ) = • El 2 . 6 , • DRHO ( ' 

11,' >=DNSI 

181 


l ' F 1 2 . 6, ' MASFRC! »Tl,*)='E12. 6) 

DNSI 

182 

14 

CONTINUE 

DNSI 

183 


RETURN 

DNSI 

184 


END 

DNSI 

185 
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oonoooo noon 


SUBROUTINE CHAR PR CALCULATES THE EFFECTIVE THFPMAL 

CHAR 

1 

CONDUCTTVI TY AND HEAT CAPACITY OF THE CHAR. 

CHAR 

2 


CHAR 

3 


CHAR 

4 

COMMON/KF/CPS ,COO ,DCOO, JCHAR t TC 

CHAR 

5 


CHAR 

6 

T=TEMPERA TURF IN RANKINE 

CHAR 

7 

TC= TEMPERATURE IN FARENHETT 

CHAR 

8 

C PS= HE AT CAPACITY OF CHARI BTU/LB-OF ) 

CHAP 

9 

CDO=EFFECTI VE THERMAL C ONDUC TI VT TY I BTU/ FT-S EC-OF ) 

CHAR 

10 

DCDO=RATE OF CHANGE OF CDO WITH TEMPERATURE 

CHAR 

11 


CHAR 

12 

TC 2 = TC *TC 

CHAP 

13 

TC 3= TC 2*TC 

CHAP 

14 

I F ( TC .GT . 2500. 1G0T0507 

CHAR 

15 

T=TC+459.7 

CHAR 

16 

CPS=0.43+3.6E-5*T-87.2E3/< T*TI 

CHAR 

17 

IF( TC.LT. 1000 • 1 CPS=0. 39 

CHAR 

18 

CPS=0. 52 

CHAR 

19 

CD0=11. 57E-5+5. 3E-1 5*TC3 

CHAP 

20 

OCOO=15.9E-15*TC2 

CHAR 

21 

RETURN 

CHAP 

22 

END 

CHAR 

23 
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SUBROUTINE I NTRPL ( VAR , X , 

F ♦ I MAX t 

SOM) 


INTR 

1 

c 






INTR 

2 

c 






INTR 

3 

c 

-THIS PROGRAM PERFORMS LAGRANG I AN 

INTERPOLATION 

INTR 

A 

c 

WITH NON-EQUAL STEP SIZE 

BETWEEN 

POINTS 

INTR 

5 

c 

F=DEPENDANT VARIABLE 





INTR 

6 

c 

X= INOEPFNOENT VARIABLE 





INTR 

7 

c 

VAR-VALUE OF X FOR WHICH 

CORRESPONDING VALUE OF 

INTR 

8 

c 

F IS DESIRED BY INTERPOLATION 




INTR 

9 

c 

I MA X=NUMBER OF POINTS IN 

ARRAY 

X 

OR 

F 

INTR 

10 

c 

SOM= VALUE OF INTERPOLATED DEPENDENT 

VARIABLE 

INTR 

11 

C . ' 

NPTS=NUMBER OF POINTS USED FOR 

INTERPOLATION 

INTR 

12 

c 






INTR 

13 


DIMENSION X( 100) ,F<100) » 

XNI300) 

t 

FN (300 ) 

INTR 

1 A 


NPTS=3 





INTR 

15 

607 

XUP=1. E30 





INTR 

16 


D061 11 = 1*1 MAX 





INTR 

17 


T= VAR-X ( I ) 





INTR 

18 


IF ( T.GE .0. ) G0T0609 





INTR 

19 

608 

T=-T 





INTR 

20 

609 

IF f T.GE • XUP )G0T061 1 





INTR 

21 

610 

IP=I 





INTR 

22 


XUP=T 





INTR 

23 

611 

CONTINUE 





INTR 

2A 


I N= 1 





INTR 

25 


NPP=NP T S+ 1 





INTR 

26 


D061 RI = 1 t NPP 





INTR 

27 


FNII ) = F ( IP) 





INTR 

28 


XN( I ) = X( IP) 





INTR 

29 


IF ( I N . G T . 0 ) G 0 TO 6 1 3 





INTR 

30 

612 

I Q= I P- I 





INTR 

31 


GO TO 61 5 





TNTR 

32 

618 

T 0 = l P + T 





INTR 

33 


IF! I MAX. GF. IQ)G0T0615 

• 




INTR 

3A 
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614 

I P= I P- 1 

INTR 

35 


GO TO 61 8 

INTR 

36 

615 

I F ( IQ.GT.O) G0T061 7 

INTR 

37 

616 

IP=IP+1 

INTR 

38 


GO TO 61 8 

INTR 

39 

617 

T P= I 0 

INTR 

40 


I N=- I N 

INTR 

41 

618 

CONTINUE 

INTR 

42 


SOM= 0. 

TNTR 

43 


F A C T = 1 « 

INTR 

44 


D0620J=1,NPTS 

INTR 

45 

' 

SOM= SOM+FACT*FN( 1 ) 

INTR 

46 


DO 61 91 = J T NPTS 

INTR 

47 


I Q=I - J+l 

TNTR 

48 

619 

FN ( IQ 1 = ( FN( 1 0+1 >-FN< I Q 1 » /(XN( I + ll-XNUOM 

INTR 

49 

620 

FACT=FACT*( VAR-XNI J)l 

INTR 

50 


RETURN 

INTR 

51 


END 

INTR 

52 
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SUBROUTINE KINET 


C 

C 


K INE 
KINE 
K INF 

-KINET CALCULATES THE COMPOSITION .RATE, AND HEAT OE REACTION FOR KINF 
THE KINETICS MODEL KINE 

K INF 

REAL*? C,FK,EK, RATER, 722, Hll KINE 

R EAL *8 C. FK.EK, XMULTR.XMULTP KINE 

COMMON/KC/ICODE( BO) .Y1 (30) , XF W( 30 ) KINE 

COMMON /KCC/SPCIE 1(301 ,SPC I E2 ( 30 ) ,T ABLE C 300, 26 ) , Z , INDPT KINE 

COMMON/KD/RSC (30,301 ,PSC(30,30) , NRFX ( 30 , 30 ) , NPEX ( 30, 30 ) » KINE 

1AF( 30) , AEE ( 30) , SF(30) ,AK(30) ,BK(30) , EKMA X (30 ) , EKM IN ( 30 ) , NCOEF ( 30 ) K INE 
COMMON/KEE/PL ,RR,TZERO,EPS,KEY,NC,NS ,MM,NQ KINE 

COMMON /KG /ENT ( 30 ) , R ATE ( 30 ) , T , HE AT 1 , SUM7 KINE 

COMMON /KH /KSP1 ,NEO KINE 

COMMON /K I /KN,K7,0TC,HEAT,WEPS ,K2 , AVGFW , K3 , Z2 , DEL Z, H KINF 

C OMMON/K J /OE L TK , TVAR KINE 

COMMON/KQ/Z22 KINE 

DIMENSION RATI0(30) ,RATERR(30) KINE 

DIMENSION T A U ( 3 0 ) KINE 

DIMENSION EKK( 30) ,EK( 30) KINE 

DIMENSION FLUXMO(30) ,FLUXMA(30), COO), PERCEI30), KINE 

L TEST(30) ,FK(30) ,RK(30) ,RATER(30) KINE 

DIMENSION NSTORE (30) ,RATE1 (30) KINF 

DIMENSION DI.FLUX130) KINE 

KINE 

KINE 

KEY=3( NONE OUI LIBRIUM FLOW) KINF 

DFl.Z=FINTTE DIFFERENCE STEP SIZE IN CM. KTNE 

K INE 

IF (K 7.GT. I )G0T074 KINE 

IPRTNT=0 KINE 

K TNE 

K SP l = TOT A L NUMBER OF CHEMICAL S PEC I ES ( S OL I D + GASES) KINE 


1 

2 

3 

4 

5 

6 

7 

8 
0 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 





r> c* r* o n r> o noon noon n 


KSP=NUMBER OF GASEOUS SPECIES 

KSP?=KSP1+1 (USED TO IDENTIFY THIRD BODY REACTIONS I 

INITIALIZATION OF PARAMENTERS 

KP A S S=0 
H= 1 . E- 6 
KSPI =NS 
KSP=NC 
KSP2=KSP1+I 
K0S=NS+4 
N=0 
K? = Q 
122=12 
K44=n 

Yl ( I 1= MOLE FRACTION OF THE CHEMICAL SPECIES 
KSP2=KSP1+1 (USED TO I OENTIFY THIRD BODY REACTION) 

DO 83 I =1 »K SP2 
DO 83 J = 1 f KSP2 
R SC ( I » J ) =0. 

P SC ( I » J ) =0. 

NR E X( I , J) -0 

NPF X ( I » J ) =0 / 

83 CONTINUE 

RSC( I*J) = STOC HI OME TRI C COEFFT C I FNT OF THE REACTANT 
J IN RF ACT I ON I. 

P SC ( 1 1 J) =ST OCHT OME TRI C COEFFICIENT OF THF PRODUCTS. 
NPE X { I T J ) = POWER ON THF CONCENTRATION OF THF PRODUCTS. 
NRE X(I , J)=POWFR ON THF CONCENTRATION OF THF REACTANTS 





ooono ono o o o o o o <“> non 


-CONVERT TO KINF.T UNITS 



KINE 

69 




K INF 

70 




KINE 

71 

AC0N4=929. 0304/453. 59 



KINE 

72 

A CON 41= A CON 4* 30. 48 



KINF 

73 

AC0N44=1. /AC0N4 



KINE 

74 

ACON 55= 30. 48**3/252. 



KINF 

75 

WNEW=WEPS/EPS 



KINE 

76 

W=WNEW 



K INF 

77 

WNE W1=WNEW 



KINE 

78 




K INF 

79 

XFW(I) = MOLECULAR WEIGHT 

OF SPECIE I 


KINE 

80 

INPUT SUBROUTINE RE AOS 

IN THF KINETIC 

DATA 

KINE 

81 




KINE 

82 

CALL INPUT1 



KINF 

83 




KINE 

84 

K7=2 



KINE 

85 

IF K 7 IS GREATER THAN 1 

CALL INOUT IS 

BYPASSED 

KINE 

86 




KINE 

87 

P=PL/2160. 



KINE 

88 




KINE 

89 

P=PRESSURE (IN ATMOSPHERES) 


KINE 

90 




KINE 

91 

R= 82 » 05 



KINE 

92 




KINE 

93 

R AND RR ARE UNIVERSAL 

GAS CONSTANTS 

IN DIFFERENT UNITS. 

K INF 

94 




KINE 

95 

-CALCULATE INITIAL AVERAGE MOLECULAR WEIGHT 

KINE 

96 




KINF 

97 

SUM=0. 



KINE 

98 

001 J = 1 » K SP 



KINE 

99 

SUM=SUM+XFW( J) *Y1 ( J) 



KINE 

100 

AVGFW=SUM 



K INF 

101 

ACON] = W/ A VGF W*AC 0N44 



KINE 

102 
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AC ONI = TOTAL MOLAL FLUX IN GRAM-MOLES / I CM2-S EC > 


CALCULATE INITIAL MOLAL FLUX ( F LUXMO--GM-MOL ES /CM2-S EC ) 


D02J=l,KSPl 

FLUXMOI J)=AC0N1*Y1 < J) 


CALCULATE INITIAL MASS FLUXIFLUXMA) 


2 FLUXMA( J)=FLUXMO( J)*XFW( J) 

WNE W2=W 
TPREV=TVAR-5. 

CONVERT STEP SIZE TO CENTIMETERS 

74 QELZZ=DELZ*30«48 
T=TVAR 

XDEL TT=TVAR-TPRE V 
SUM1=0. 

RRR= 1 000. /(RR*T) 

AC0N9=R*T/P 
DO 5 J = 1 » K SP 

5 SlJMl = SUM 1 +F LUXMQ ( J) *ACQN9 


CALCULATE THF CONCENTRATION C(J) OF THE SPECIES! GM-M0l.ES/CM3 ) 


K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 

K 


INF 

103 

INE 

104 

INE 

105 

INE 

106 

INE 

107 

INE 

108 

INE 

109 

INE 

110 

INE 

111 

INE 

112 

INE 

113 

INE 

114 

INE 

115 

INF 

116 

INE 

117 

INE 

1 18 

INE 

119 

INE 

120 

INE 

121 

INE 

122 

INE 

123 

INE 

124 

INE 

125 

INE 

126 

INE 

127 

INE 

128 

INE 

129 

INE 

130 

INE 

131 

INF 

132 

INE 

1 33 

INE 

134 

INE 

135 

INF 

136 


SUM=0 
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6 


900 

902 


7 


DO 6 J = l » K SP 

KINE 

137 

C( J)=FLUXM0( JI/SUM1 

K INE 

138 

$UM= SUM+C ( J 1 

K INE 

139 

C(KSP1>=SUM*Y1(KSP1 ) 

KINE 

1 AO 

C ( KSP2) =SUM 

KINE 

1 41. 


KINE 

142 

C ( K SP 2 ) = C0NC ENTP ATI ON USE FOR A THIRD RODY REACTION 

KINE 

143 


KINE 

144 


K INE 

145 

-CALCULATE FK AND RK WHICH ARE THE FOWARD 

KINE 

146 

AND REVERSE REACTION RATE CONSTANTS. 

KINE 

147 


KINE 

148 


KINE 

149 

R T=R *T 

KINE 

150 

EK=EQUILIBIRUM CONSTANT 

KINE 

151 

D07T = 1 »NE0 

KINE 

152 

IFC SF( I) .EO.O. IGOT0900 

K INE 

1 53 

FK( I) = AF< n*T**(-SF( I n*EXP(-AEFm*RRR) 

KINE 

154 

GOTO 902 

KINE 

155 

FK« I ) = AF{ TJ *EXP(-AEFtn*RRRI 

KINF 

156 

A 1 = AK ( I ) 

KINF 

157 

A 2=8K ( I ) 

KINE 

158 

EKK( U = EXP( A1+A2/TI 

KINE 

159 

X12=EKMAX(I» 

K INE 

160 

r F ( EKK ( I> .GT.EKMAXm )EKK( I ) = EKMAX( I) 

KINE 

161 

IF(EKK( n.LT.FKMINd MEKK(n = EKMTNm 

KINF 

162 

EK( n = FKKm/(RT**NCOEF(I) » 

KINE 

163 

RK(II=FK(I)/EK(T) 

KINE 

164 

CONTINUF 

KINE 

165 


KINF 

166 


KINE 

167 

■CALCULATION OF REACTION RATE OF SPECIEIJ) 

K INF 

168 


K INE 

16« 

* 

KINE 

170 


500 



RATER! ll=FK( 1)*(C (3)-Cfl )*C(8)/EK(1) ) 
RATER(2)=FK!2)*(C(3)-C(2)*C(9)/EK(2) ) 

RATER (3) =FK( 3 ) * ( C ( 2 ) *C ( 2 > -C ! 4) /EK!3) ) 
RATER(4)=FK!4)*(C(4)-C!5)*C(8)/EK(4) ) 

RATFR{ 5)=FK(5)*(C!5) -C I 6 ) *C(8)/EK(5) ) 
RATER(6)=FK(6)*(C!6)-C!8)/EK(6) I 
RATER(7)=FK(7)*(C!6)-C(7)*C(9)/EK(7| ) 

RATER ( 8) =FK { 8 ) * ( C ( 16 ) -C ( 1 4 ) *C ( 8 ) / EK ( 8 l I 
RATER ( 9)=FK(9)*!C( 1 5 > -C C 14 ) *C ( 14) /EK! 9 ) ) 

RATER ( 1 O ) =FK ( 10 ) *( C ( 8 ) -C ( 9 ) *C ( 9 I /EK 1 10 ) ) 

RATER(ll) =FK! 1 1 ) * < C ( 16 ) -C ( 1 7 ) *C ( 9 1 /EK( 1 1 )l 
RATER ( 12) =FK( 12 ) * ( C ( 9 )*C ( 1 5 ) -C ( 14 1 *C ( 17 ) /EK( 12)) 

RATER ( 13) =FK( 13)*(C(15)-C(14)*C(18)/EK(13)) 

RATER ( 14) =FK ( 14 ) * ( C ( 11) *C(8)-C!12)*C(16 )/EK(14) ) 

RATER! 15) =FK( 1 5 ) *( C ( 12 ) -C < 6) *C(6 ) *C C6 ) /EK I 15 ) ) 

DO 121 I=l,KSPi 
XJ=RATER ( I ) 

IF( XJ.LT.O. )RATER( I )=0. 

121 CONTINUE 

RATE! 1)=RATER(1 ) 

RATE! 2)=RATER!2)-2.*RATER(3) 

RATE( 3 ) =-RATER( 1 ) -RATER! 2) 

R ATE! 4) =RATER!3 ) -RATFR(4) 

RATE ( 5) =R A T E R ( 4 ) - R A T E R ( 5 ) 

RATE ( 6 ) =R A TER ( 5 ) -RATFR ( 6 ) -RATER ( 7 ) + 3. *RATER ( 15 ) 

RATE! 7)=RATFR(7) 

RATE ( 9) =RATER( 1 ) +R A TER ( 4 ) +RAT ER ( 5 ) + RATER ( 6 ) +R ATER ( 8 ) -RAT ER ( 10)- 
1 RATER! 14) 

RATE! 9) =R.A TER(2)+RATER(7)+2. *R.ATER( 10 ) 4-RATER ( 1 1 ) -RAT ER (1 2 ) 

RATF( 10) =0. 

RATE! 1 1 ) =-R ATER ( 14) 

RATE! 1 2 ) =R A TF R( 14) -RATER ( 1 5) 

RATE (13 1=0. 
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185 
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RATE! 14 )=RATER ( R) + 2 . *RA TER ( 9 ) + RA TER C 1 2 ) *R AT ER ( 1 3 ) 

RATE ( 15I=-RATFR(9)-RATFR(12)-RATER(13) 

RATE ( 16 )=-RA TER ( 8» -RATER ( 1 U +RATER C 1 4 > 

RATE(17)=RATER( 1 1 ) + R ATER ( 1 2 1 
RATE! 18 J = RA TER ( 1 3 1 

RATE ( 191 =RATER( 6) *2. -RATER ( 81 -PATER (9) 

C R ATE ( J ) = REACTION RATE (GRAM-M/LES/ (CM3-SECM FOR SPECIE J. 

C 

TPRE V=TVAR 

K44=K44*1 

DSUM=0. 

DSUMM=0. 

TES$=0. 

no 130 I = 1 » K SRI 

DLFLUX< I )=RATE(I)*XFW( I »*DELZ7 
R ATT 00=DLFLUX ( 1 )/FLUXMA(n 
RATIO! I ) =R ATI 00 
IFCRATIOO.GF.O. IG0TO129 
RA TO=AR S( R A TI 00 ) 

IFIRATO.GT .0. 1)KPASS=1 
129 ADFLUX=A8 S( DLFLUX (II) 

TESS=AMAX1( TFSSt ADFLUXI 
OSUM=DSUH+OLFLUX( I ) 

IF( I .GT.KSPIG0T0130 
OSUMM=DSUH 
130 CONTINUE 
C 

C CHECK STEP SIZE FOR STABILITY 

C 

IF(KPASS.EQ.HH=H/4. 

TF( H.GT.1.08F-4>H=l.n8E-4 
IF ( RATO.LT. 0.010 )H=H*2 
I F { H.LT. 2. SF-7)H=2.5E-7 
DEL 7 Z = H* 3P ,4R 
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noon 


DO 13 J = 1 » K SP1 
TEST! J)=FLUXMA( J) 

FLUXMA! J1=FLUXMA( Jl + RATE! JJ *DEL Z Z*XFW { J ) 
TFfFLUXMA(J) .GE • 0. 1 GOTO 13 
FLUXMA ( J ) = 1 • E-40 

13 CONTINUE 
KPASS=0 

WNE W 1 =WNE Wl-RATE (KSP11*DELZZ*XFW!KSP1) * AC ON A 
WNE W=WNE W1 
WEPS=WNEW*EPS 
WNE W2=0. 

SUM3=0. 

132 00 19 J = 1 » KSP1 

FLUXMOI J»=FLUXMA! JI/XFWIJ) 

IF{ J .GT.KSPJG0T019 
SUM 3=SUM3+F LUXMO! Jl 
WNEW2=WNEW2+FLUXMA! Jl 
19 CONTINUE 

WNEW2=WNEW2*AC0N4 
WNE W22=WNE W? 

00 1 A J=i y KSP1 
Y 1 ( J I = F LUXMOI JI /SUM3 

14 PERCE! JI=Y1(JI*100. 

SUM=0. 

DO 111 I = l » K S P 
SUM= SUM+XF Wl l )*Y1( I ) 

111 CONTI NUF 
A VGFW=SUM 

RH0=AC0N41 /AC0N9*AVGFW 
VFL=WNE W/RHO 


CONVERT THE UNITS OF THE HEAT OF REACTION 
TERM TO THOSE COMPATIBLE WITH GROUP 
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KINE 
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KINF 

251 

KINE 
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K INE 
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KINE 
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KINE 
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KINE 

256 

KINE 

257 

KINE 

258 

KINE 

259 

KINE 

260 

KINE 

261 

KINE 

262 

KINE 

263 

KINF 

264 

K INE 

265 

KINE 

266 

KINE 

267 

KINE 

268 

K INE 

269 

KINE 

270 

KINE 

271 

K INE 

272 
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CALL THERM2 

HEA T=RATE OF HEAT ABSORBED OR RELEASE BY CHEMICAL 
REACT! ON S( BTU/F T**3-SEC) • 

HEAT=HEATl*ACON55 
HEAT3=HEAT/DTC 
H 1 1 =H 

Z2 2=Z22*H11 
IF! Z2.LE.Z22JG0T037 
RETURN 
37 K2=K 2+1 

IF!K2.GE.299)K2=299 
0017 1=5, KOS * 

TABLE(K2»Il =Y 1(1-4) 

17 CONTINUE 

TABLE(K2,1I=T 
TABLE(K2,2)=HEAT 
TABLE( K2,3) =A VGFW 
TABLE( K2 ,A) =WNEW 

PRINT 9A, WNEW,WNEW2 ,DELZ,XDELTT 
PRINT 776 

776 FORMAT! IH1 t //llX, 'HEAT OF F OR MATI ON * ,3 X , • MOL E FRACTION', 

1 5X, 'RATFm *,9X, 'RATERfll ' ,8X, 'FLUXMA! I )' /// » 

00 779 I = 1 , K SP1 

PRINT 777, SPC I E 1 ( I) , SPC IE2! 1 1 ,ENT(I I , Y 1 ( I) , R AT F ( I) , 

1 RATER! I) ,F LUXMA ( I ) ,0LFLUXI ! », RATIO! I) 

777 FORMAT! 6X,2A3,7E16. 71 

779 CONTINUE 
PRINT 780 

780 FORMAT! 1H0) 

PRINT 781 ,Z,H»K2 , K3 , K44 , Z?2 , OSUM, DSUMM 

781 FORMAT! 6X, 'Z='IE12.6,3X,'H='E12.6,3X,'K2='T3,' K3=' 18* IX, 
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KINE 289 
KINE 290 
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1 • K44= * I 6f * Z22='D1 8.9,2E16.7) 

PRINT 60? 2 t T 

6022 FORMAT! 7X,18H TEMPERATURE IN OK=,1F10.3) 

TF = T *1# 8-460. 0 

PRINT 602 3 t TF 

6023 FORMAT! 7X,1 8HTEMPERATURE IN 0F=,1F10.31 

6024 FORMAT! 7X,40HHFAT ABSORBED RY R E ACT I ONS I 8TU/ FT2-SEC ) = , 1 FI 4. 5 1 
PRINT 6024.HEAT3 

PRINT 602 5 , WNF W 

6025 FORMAT! 7X, l 8H0VER ALL MASS FLUX=,E14.7) 

PRINT 6026.AVGFW 

6026 FORMAT! 7X , 32HA VERAGE MOLECULAR WEIGHT OF GA$=* 1F10.3/// I 
PRINT 6032, SUM7 

6032 FORMAT! //I OX , 36HENTHALPY OF THE REACTING GAS SYSTEM= , l E 16 . 8 ) 
94 FORMAT! IX, 5E20. 81 
PRINT 95 , VEL , RHO 

95 F0RMAT!1X, , VEL!FT/SEC1=*E15.7,' RHO! LBS/FT3 )=* E15.7/ > 

RETURN 

END 
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SUBROUTINE THERM2 


THERMO SUBROUTINE CALCULATES THE HEAT OF REACTION OF 
THE MIXTURE, THE HEAT OF FORMATION OF EACH INDIVIDUAL 
CHEMICAL SPECIE, AND THE HEAT CAPACITY OF THE MIXTURE 


COMMON/KA/S1 ( 6) , S2 ( 6 ) , S3 ( 6 ) , S4< 6 ) , S5 (6 ) , All (6),A22(6), 

1 A33( 6) , A44 ( 6) * A551 6 ) ,F II 30 ) ,F I I ( 30 > ,G I ( 30 ) , 

2 Gill 30) ,AA(30,6) ,S6(6) , A66I6) , JCODE 1 6 ) , CPMX 
COMMON/KB/ AH 30) ,BI (30 ) , C I ( 30 ) , 0 1( 30 ) ,E I (30 ) , AI I { 30 ) , 

1 8II(30),CIH30),DII(30),EII(30) ,TLOW( 30 ) 

COMMON/KC /I COOE (30),Y(30),FW(30) 

COMMON /KG /ENT (30) ,R ATE! 30 ) , T , HE AT 1 , SUM7 
COMMON /KEE/ PL, RR,TZERO, EPS, KEY, NC, NS ,MM, NQ 
DIMENSION CPDT1I6I , ENT 1(30) ,CP(30) 

TEMPERATURE IN OK. 


Tl = T 
T 2= T1*T 
T3=T2*T 
TA=T3*T 
T5=T4*T 
A 1 = T 
A 2= T2/ 2 • 

A 3=T3/3. 
AA=T4/4. 

A 5= T5/5 • 

C PM X=0. 
SUM7=0. 
HEAT 1=0. 

DO 781 = 1, NQ 


THER 

1 

THER 

2 

THER 

3 

THER 

A 

THER 

5 

THER 

6 

THER 

7 

THER 

e 

THER 

9 

THER 

10 

THER 

11 

THER 

12 

THER 

13 

THER 

14 

THER 

15 

THER 

16 

THER 

17 

THER 

IB 

THER 

19 

THER 

20 

THER 

21 

THER 

22 

THER 

23 

THER 

24 

THER 

25 

THER 

26 

THER 

27 

THER 

28 

THER 

29 

THER 

30 

THER 

31 

THER 

32 

THER 

33 

THER 

34 
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IF ( T ,LT . TLOW ( I J IGOT06207 

TLO W ( I I-MINIMUM TEMPERATURE AT WHICH THE HIGH 
TEMPERATURE FIT CAN BE USED. 

ENT 1=SE NSI BLE ENTHALPY* CHEMICAL POTENTIAL 

ENT 1 1 I ) = ( AI I I )*A1*BI ( I ) *A2+C I ( I ) *A3+DI ( I )*A4+EI ( I )*A5 
I*FI (I) ) *RR 
CP=HEAT CAPACITY 

CPI 1 1 = I A I ( I)*BI t I)*T1+CI( I J *T2 + D I ( I > *T3*E II U*T4)*RR 
IF ( I .GT. 1IG0T06291 


CALCULATE THE SENSIBLE ENTHALPY OF THE CONSTITUENT 
ELEMENTS. 


D02 96 J= I , MM 

CPDTK J) = l Sll J) *A 1 + S2 I J)*A2* S3! J ) *A3*S4 ( J I *A4*55 1 J )*A5 
1 *S6( J) ) *RR 

296 CONTINUE 
GOTO 62 91 

C 

6207 ENT II I ) = ( A I II I)*A1*BII (I ) *A2*C 1 1 I I )*A3 + DI I C I )*A4+EII (l»*A5 
1+FIIUI )*RR 

CP ( I )= ( A 1 1 1 I I *B 1 1 1 I l*'T*CI III ) *T2+D 1 1 1 1 ) *T3+E 1 1 1 I )*T4)*RR 
IF( I .GT .HG0T06291 
D0297J=1,MM 

CPDT1. (JI S =(A11(J)*A1+A22(J!*A2*A33( Jl* A3 + A44 I J )*A4 
1 +A55I J)*A5*A66l JM*RR 

297 CONTINUE 


oooo non nonnonnn 



JCOOE(J)=0 THE REFERENCE ELEMENT IS IN THE GAS STATE. 

THER 

69 


JCODEI J )= 1 THE REFERENCE ELEMENT IS IN THE SOLIO STATE. 

THER 

70 



THER 

71 

— 

-R SUM IS THE SUM OF THE SENSIBLE ENTHALPY OF THE CGNSTI- 

THER 

72 


TUENT ELEMENTS OF THE ITH SPECIE AT TEMPERATURE TIOKf, 

THER 

73 


WITH RESPECT TO THE STANDARD STATE(P=1 ATM AND T=298 ) 

THER 

74 



THER 

75 



THER 

76 

6291 

RSUM=0. 

THER 

77 


DO 398 J=1 t MM 

THER 

78 


I F( JCODEI J ) .EQ. DG0T0393 

THER 

79 


R SUM=R SUM+0. 5*AA( I , J ) *C PDT1 ( J ) 

THER 

60 


G0T0398 

THER 

81 

393 

RSUM=RSUM+AA( I »Jl*CPDTl( J) 

THER 

82 

398 

CONTINUE 

THER 

83 



THER 

8A 


-CALCULATE THE HEAT OF FORMATION E NT { I } FOR EACH SPECIE . 

THER 

85 



THER 

86 


ENT(II=ENTl( I J-RSUM 

THER 

87 


IF(ABS(ENT(I) ).LT.3.)ENTm=0. 

THER 

88 



THER 

89 

— 

-CALCULATE HEAT1, WHICH IS THE HEAT ABSORBED BY THE CHEMICAL 

THER 

90 


REACTIONSICALORIE S/GM-MOLE ) 

THER 

91 



THER 

92 


IF C I .GT.NC IGOT08005 

THER 

93 


HEAT l=HE AT URATE! I)*EPS*ENT(I ) 

THER 

9A 


GO TO 787 

THER 

95 

8005 

HEAT1=HEAT1*RATE ( I) Ml.-EPSUENT ( I ) 

THER 

96 


GO TO 78 

THER 

97 

787 

SUM7= SUM7+Y ( I 1 *E NT1 .( I ) 

THER 

98 


c pm x=c p mx+c p ( imm 

THER 

99 

78 

CONTINUE 

THER 

100 


RETURN 

THER 

101 


END 

THER 

102 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBPOUT INF INPUT] 

C OMMON/KO/R SC (30,30) ,PSC( 30,30) ,NREX ( 30 , 30 ) , NPEX ( 30 , 30 ) , 

1AF( 30) , AFF( 30), SF(30) ,AM30) ,BK ( 30 ) , EKMAX ( 30 ) , EKMIN ( 30 ) ,NCOEF ( 30 ) 
C0MM0N/KH/KSP1 ,NEO 
DIMENSION EON (30,30) 


R SC ( T , J) = STOCHI OME TRT C COEFFICIENT OF REACTANT I IN REACTION J. 
PSC( I , J )= STOCHIOMETRI C COEFFICIENT OF PRODUCT I IN RFACTION J. 
NREX( I , J)=POWER ON CONCENTRATION OF REACTANT I « 

NPEX( I, J)=POWER ON CONCENTRATION OF PRODUCT I, 

AF( J ) = FREQUENCY FACTOR OF FORWARD REACTION. 

SF ( J ) =P OWE R DEPENDENCE ON TEMPERATURE FOR FORWARD REACTION. 

AEF( J ) = AC T I VA TT ON ENERGY OF FORWARO REACTION. 

EQN= ALPHA-NUMERT C STORAGE OF TITLE OF CHEMICAL REACTION. 

AK AND 3K=E MPI R I CAL CONSTANT FOR EQUILIBRIUM CONST. FIT. 

AK ANO BK ARE EMPIRICAL CONSTANTS FOR THE EQUILIBRIUM CONSTANT FI 
EKMAX AND EKMIN ARE THE MAX. AND MIN. VALUE OF THE EQUILIBRIUM 
CONSTANTS. THFSE VALUES ARE USED TO AVOID EXTREME CASES. THESE 
ARE WHEN THE CONVERSION IS CLOSE TO ONE, OR CLOSE TO ZERO. 

COEF ( J » = SUM COEF. OF OF CONCENTRATION OF PROD. MINUS REACT. 
KSP1=T0TAL NUMER OF GASES AND SOLIDS SPECIES. 

NEQ=NUMBER OF CHEMICAL REACTIONS. 


READ INPUT 


CONTINUE 
READ 1 , NE Q 
FORMAT( T ? ) 
PRINT 12 


INPU 

1 

I NPU 

? 

INPU 

3 

INPU 

A 

INPU 

5 

INPU 

6 

INPU 

7 

INPU 

8 

INPU 

9 

INPU 

in 

INPU 

11 

INPU 

12 

INPU 

13 

INPU 

1 A 

INPU 

15 

INPU 

16 

INPU 

17 

T INPU 

18 

INPU 

19 

INPU 

20 

INPU 

21 

INPU 

22 

INPU 

23 

INPU 

2A 

INPU 

25 

INPU 

26 

INPU 

27 

INPU 

28 

INPU 

29 

INPU 

30 

INPU 

31 

INPU 

32 

INPU 

33 

INPU 

3A 


1 
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OH 6 J = 1 » NE Q 

INPU 

35 


READ 7 » ! EON( J »K 1 » K=1 , 1 9 1 

INPU 

36 

7 

FORMAT ( I 9A4) 

TNPU 

37 


PRINT 13,!EQN!J,I I ,1=1,191 

INPU 

38 


READ 2» I t RSC( J.I 1 tl.RSCI J,I1 , I *RSC( J, I l,!,PSC(J,II, I,PSC! J, !), 

INPU 

39 


1 I ,PSC( J » l ) 

INPU 

AO 


R FAD 3, T,NREX<J f I),I ,NREX! J,I» ,I,NREX! J,I>, l «NPEX(J« 11 « 

INPU 

41 


1 IfNPEXf J«I)«I t NPEX( J«It 

INPU 

42 


READ 4, AF ( J ) , SF ( J) , AEF ( J) 

INPU 

43 


READ 5 « AK ( J ) » BK( J 1 ,EKMAX< J) , E KMI N( J 1 , NCOEF ! J ) 

INPU 

44 

2 

F0RMAT16! I3,F3.0U 

INPU 

45 

3 

FORMAT! 121 3) 

INPU 

46 

4 

FORMAT! E8.0»2Xf2F10.1) 

INPU 

47 

5 

FORMAT! 4E 15. 7,151 

INPU 

48 


6 CONTINUE 

INPU 

49 

1 1 

CONTINUE 

INPU 

50 


PRINT 12 

INPU 

51 

12 

FORMAT! 1H1) 

INPU 

52 

13 

FORMAT! IX, 19A4/1 

INPU 

53 


RETURN 

INPU 

54 


END 

INPU 

55 


cn 


o 




SUBROUTINE I NTRPL ( VAR , X , F , l MAX , SOM) 

INTR 

1 


DIMENSION X( 1 ) ,F<1 ) f XN{ 100) ,FN(100) 

INTR 

2 

c 


INTR 

3 

C ******* ******************************* ********$**************** 

INTR 

A 

c* 

THIS PROGRAM PERFORMS LAGRAGI AN INTERPOLATION * 

INTR 

5 

c* 

WITH UNEQUAL STEP SIZE BETWEEN POINTS. * 

INTR 

6 

C ********************************************* ****************** 

INTR 

7 

c 


INTR 

R 

c 

F = DE PENDENT VARI ABLE 

INTR 

9 

c 

X= INDEPENDENT VARIABLE 

INTR 

10 

c 

VAR=VALUE OF X FOR WHICH CORRESPONDING VALUE OF 

INTR 

11 

c 

F IS DESIRED BY INTERPOLATION 

INTR 

12 

c 

I MA X=NUMBER OF POINTS IN ARRAY X OR F.IMAX OF 100 ) 

INTR 

13 

c 

SOM=VALUE OF INTERPOLATED DEPENDENT VARIABLE 

INTR 

1 A 

c 

NPTS= NUMBER OF POINTS USED FOR INTERPOLATION 

INTR 

15 


NPTS=3 

INTR 

16 

607 

XUP= 1 . E 30 

INTR 

17 


DO 611 1 = 1, I MAX 

INTR 

18 


T=VAR-X( I ) 

INTR 

19 


I F ( T.GE.O. )G0 TO 609 

INTR 

20 

608 

T=- T 

INTR 

21 

609 

IF (T . GE . XUP) GO TO 611 

INTR 

22 

610 

IP=I 

INTR 

23 


XUP=T 

INTR 

2 A 

611 

CONTINUE 

INTR 

25 


I N= 1 

INTR 

26 


npp=npts+i 

INTR 

27 


DO 618 1=1, NPP 

INTR 

28 


FN(I)=F(I.P) 

INTR 

29 


XN ( I ) = X< IP) 

INTR 

30 


IF C IN ,GT. 0. ) GO TO 613 

TNTR 

31 

612 

I Q= I P-T 

INTR 

32 


GO TO 615 

INTR 

33 

61 3 

IO=IP+I 

TNTR 

3A 


IIS 



a 



IF ( IMAX .GF. 10) GO TO 615 

INTR 

35 

614 

IP= IP-1 

TNTP 

36 


GO TO 618 

INTR 

37 

615 

I F ( 10 .GT. 0 ) GO TO 61 7 

TNTR 

38 

616 

TP=IP+1 

TNTR 

39 


GO TO 618 

INTR 

40 

617 

I P= I Q 

INTR 

41 


IN =- I N 

TNTR 

42 

618 

CONTINUE 

INTR 

43 


S0M=0. 

INTR 

44 


FAC T = 1 . 

INTR 

45 


DO 620 J=1 ? NPTS 

INTR 

46 


SOM= SOM+F AC T*FN ( 1) 

INTR 

47 


DO 619 I = J t NPTS 

INTR 

48 


IQ=I- J+l 

INTR 

49 

619 

FN( IO) = (FN( IO+D-FNUO) /XN( 1*1 )-XN(TQM 

INTR 

50 

620 

FACT=FACT*( VAR-XNI Jl) 

INTR 

51 


RETURN 

INTR 

52 


END 

INTR 

53 


512 
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ABLATIN2 ANALYSIS NOMENCLATURE 


MAIN : 

AA(I/ J) : Formula number. Gives the gram atoms of 

element J in species I. 

AI. ♦ ,GI : These are the seven empirical constants for 

the high temperature fit (10G0°“60Q0°K) for the free energy 
functions. The first five constants (AI through El) are 
used in the heat capacity fit. 

All . . ,GII : These are the seven empirical constants for 

the low temperature fit (300 o K-1000°K) for the free energy 
function. 

All. . .A66 : These are the six empirical constants for 

the enthalpy fit of the constituent elements (300°K-1000°K) . 

ALPHA : Viscous coefficient in Darcy's equation 

(FT -1 ) . 

AVGFW : Average molecular weight of the gas mixture. 

BETA : Inertial coefficient in Darcy's equations 

(1/FT 2 ) . 

CDO : Thermal conductivity of the char (BTU/FT-sec-°F) . 

CDOV : Thermal conductivity of the virgin material, 

(BTU/FT-sec-°F) . 

CPB1 : Total rate of heat absorbed by the gases in the 

2 

char zone. (BTU/FT sec) . 

CPB2 : Total rate of heat absorbed by the solids in 

the char zone. (BTU/FT 2 sec) . 
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CPS : Heat capacity of the char (BTU/lb-°F) . 

CPV : Heat capacity of the virgin material (BTU/lb-°F) . 

DC DO : Rate of change of the thermal conductivity of 

the char with temperature. (BTU/FT-sec-°F2) . 

DCDOV : Rate of change of the thermal conductivity of 

the virgin material with temperature. (BTU/FT-sec-°F 2 ) . 

DELTF : Differential change in temperature in °F for an 

increment of distance H. 

DELTK : Differential change in temperature in °K for an 

increment of distance H. 

2 

DELTP : Pressure drop across the char, (lbs./ft ) . 

DELZ : Increment of distance (in feet) . 

DISTAN : Char thickness in feet. 

DT : Temperature gradient (°F/FT) . 

PTC : Temperature gradient in the char (°F/FT) . 

DTCC : Temperature gradient in double precision arith- 

metic in the char (°F/FT) . 

DTCI : Temperature gradient in the virgin material 

(°F/FT) . 

EK : Potential parameter /Boltzman constant. 

EMIS : Char emissivity. 

EPS : Porosity of the char (FT 2 voids/FT 2 total) . 

FW ( I ) : Molecular weight of species I. 

GASCP : Is the heat capacity of the gas mixture in 

(BTU/lb-°F) . 

GROUP: This is the bracketted term of Equation ( 3—36 ) . 


(1/FT) . 
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H: Runge-Kutta step size (in feet) . 

Hll : Runge-Kutta step size in double precision arith- 

metic (in feet) . 

HCHAR : Percent of total heat absorbed in the char 

zone. 

HDECOM ; Percent of total heat absorbed in the decompo- 
sition zone. 

HGAS : Percent of heat absorbed by the gas in the char 

zone . 

HI : Initial value of Runge-Kutta step (in feet) . 

HREACT : Percent of heat absorbed by the reactions in 

the char zone. 

HSOLID : Percent of heat absorbed in the solids in the 

char zone. 

I CODE (I) : Is a code to identify whether a species is a 

gas or a solid. If ICODE is zero, the species is a gas. If 
ICODE is one, the species is a solid. 

IMAX : Number of data points for EK. 

I TEMP : Total number of temperature points stored in 

temperature profile. 

JCODE ( J) : Is a code used to determine whether the re- 

ference state of the constituent element J is in the gas or 
in the solid state. 

JS : Total number of slices in which the char is 

divided for the solution of the momentum equation. 

K1 : Is a counter for the number of temperature points 

stored during the solution of the energy equation. 
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MM : Is the number of elements. 

NC: Number of gas species read in. 

NDATA : Number of collision integral points tabulated 

versus XTKE. 

NN : Number of gas species in the system. 

NN5 ; Is the total number of variables stored in TABLE 
(I,J) . 

NNS : Is the number of solid species in the system. 

NQ : Is the total number of gas and solid species in 

the system. 

NS : Is the total number of gas and solid species read 

in. 

OMGA : Interpolated value of XTKE. 

2 

P: Pressure in lbs/ft . 

PL : Pressure at the front surface of the char (lbs/ 

ft 2 ) . 

Q: Is the rate of heat absorbed in the decomposition 

zone in (BTU/ft 3 sec) . 

Q2 : It equals Q/DTC (BTU/FT 2 -sec-°F) . 

QA : Aerodynamic heating rate (BTU/FT 2 -sec) . Equals 

QL+QR. 

QCZ : Heat flux in the char zone (BTU/ft 2 -sec) . 

QCZI : Heat flux in the decomposition zone (BTU/ft 2 sec) 

2 

QL : Is the total heat flux at the surface (BTU/ft sec) 

QR : Is the rate of re -radiation from the surface of 

the char (BTU/ft 2 -sec) . 

REAC1: Is the total rate of heat absorbed by the che- 
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mical reactions. (BTU/ft 2 -sec) . 

REAC2 : Heat absorbed by the chemical reactions 

(BTU/ft 2 -sec) . 

REACT : Equals REAC2/DTC (BTU/f t 2 -sec-°F) . 

RHO : Bulk density of the virgin material (lbs/ft 3 ) . 

ROCHAR : Bulk density of the char material (lbs/ft 3 ) . 

RR : Gas constant: 1.98726 (BTU/lb-mole °R) . 

SI. . ,S6 : These are six empirical constants for the 

enthalpy fit of the constituent elements (1000°K-6000°K) . 

SIG : Collision diameter (Angstrongs) . 

SIGMA : Stephan-Boltzman constant (4.81 x 10 -1 ^ BTU/ 

ft 2 -sec-°F 4 ) . 

T1 (Kl) : Variable in which the temperature profile is 

stored versus distance Z. Kl is a counter. 

TC : Temperature in °F. 

TCHAR: Temperature at which all the virgin material 

has degraded to gas and char (°K) . 

TFMAX : Maximum specified temperature of the front 

surface of the char (°F) . 

THICK : Is the thickness of the char zone, in inches. 

THICK1 : Is the thickness of the decomposition zone in 

inches . 

TK: Interpolated value of the temperature (in°K) at 

a distance Z in the char. 

TL : Front surface temperature of the char (°F) when 

the temperature profile has been defined. 

TLOW (I) : Maximum temperature of low temperature fit 
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for species I. (°K) 

TO : Initial temperature (in °F) at Z=0. 

TPREV : Temperature (in °F) at the previous step. 

TTTT : This is the temperature (in °F) in double pre- 

cision arithmetic. A provision has been made in the program 
that if the step size is less than 8. x 10“^ ft., the 
Runge-Kutta analysis is calculated in double precision arith 

metic to reduce round-off error. 

o 

TVAR : Temperature in K. 

TVIS : Interpolated value of the temperature profile 

(in °F) at a distance Z along the char. 

VISCOS : Viscosity of the gas (in centipoise) . 

VR : Surface recession velocity (ft/sec) . 

W: Hass flux based on the total area (lbs/ft -sec) . 

WI : Mass flux of the gases entering the char based 

on the total area (lbs/ft^-sec) . 

XTKE : Product of the temperature in °K and 1/EK. 

YCOMP (I, J) : Array to store the concentration profile. 

Y (I) : Mole fraction of species I. 

YI (I) : Initial mole fraction of species I. 

Zji Distance along the decomposition zone or the char 
zone (ft) . 

ZINC : Increment of distance at which the temperature 

profile is stored (ft) . 

ZMAX : Maximum allowable thickness of the char zone. 

(Usually 0.25 inches). 

ZZ: Distance of Z in double precision arithmetic (ft) . 
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INDPTHs 

This subroutine calculates the physical properties of 
the virgin material and the pyrolysis gases. 

A. . . E : These are five empirical constants for the 

heat capacity of the virgin material. 

DELTKK ; Increment of temperature (°K) . 

PHMCR : 

This subroutine computes the heat absorbed by the de- 
composition of the phenolic resin and phenolic microballoons. 

AREA : This is the area generated by a plot of calories 

versus temperature (°K) by the decomposition of phenolic 
resin during a differential thermal analysis. (1350 cal/ 

°K) . 

AREA1 : This is the area generated by a plot of calo- 

ries versus temperature (°K) , by the decomposition of 
phenolic microballoons during a differential thermal analy- 
sis. (1464 calories / °K) . 

A (I) . . ,E (I) : These are five empirical constants used 

to fit a curve through a portion of the plot of calories 
versus temperature for the phenolic resin. 

A1 (I) . . .El (I) : These are five empirical constants used 

to fit a curve through a portion of the plot of calories 
versus temperature for the phenolic microballoons. 

DT : Is the temperature difference in °K from a base 

temperature of 350 °C 9623°K) . Below 350°C, decomposition 
of the virgin material has not been initiated. 
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PELT : Is the temperature increment (°K) for an incre- 

ment of the Runge-Kutta step. 

H: Is the height (in calories) for the plot of 

calories versus temperature (°K) . 

K6 : Is a code used to bypass the read statements. 

When K6 is one, the data is read in. When K6 is two, the 
read statements are bypassed. 

NUMBER : Is the number of fits used for the plots of 

calories versus temperature . 

QMICRO : Heat absorbed by the decomposition of the 

phenolic microballoons (calories/gram) . 

QPHNLC : Heat absorbed by the decomposition of the 

phenolic resin (calories/gram) . 

NYLON : 

This subroutine calculates the heat absorbed by the 
decomposition of nylon. 

AREA : This is the area generated by a plot of calo- 

ries versus temperature (°K) for the decomposition of nylon 
(1122 calories / °K) during a differential thermal analysis. 

QNYLON : Heat absorbed by the decomposition of nylon 

(calories/gram) . 

DNSITY : 

This subroutine calculates the density change of phe- 
nolic nylon and the mass flux of the pyrolysis gas. 

A(J) : Frequency factor of reaction J (sec“l) . 

COMPST : Is an integer variable giving the number of 
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composite in the ablator. In the case of phenolic nylon, it 
is three. 

DELFLX (I) : Is the change in mass flux of composite I 

due to degradation (lbs/ft^-sec) . 

DRHO : Differential change in density due to degrada- 

tion. This variable is used as a criteria for stability 
while the solution is marching through the decomposition 
zone (ibs/'ft 3 ) . 

DRHODT (I) : Rate of gas generation by the degradation 

of composite I (lbs/ft -sec) . 

E ( J) : Energy of activation of reaction J used to 

describe the degradation of the composite (Joules/gram- 
mole) . 

MASFLX(I) : Rate of change of mass flux due to the 

2 

degradation of composite I (lbs/ft -sec) . 

MASFRC (I) : Mass fraction of each composite in the 

mixture of virgin material. 

NREACT ; Number of pseudo-order kinetic reactions used 
to describe the decomposition of the virgin material com- 
posite. 

RATER (J) ; Specific reaction velocity of reaction J 
(lbs/ft 3 -sec) . 

RHO : Bulk density of the composite (lbs/ft 3 ) . 

RHOC (I) : Residual density of composite I (lbs/ft 3 ) . 

RHOCC(I) : Lowest value of residual density of compo- 

site I (lbs/ft 3 ) . 

RHOI(I): Initial density of composite I (lbs/ft 3 ). 
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RHOII : Initial density of the virgin composite, 

(lbs/ft 3 ) . 

RHOT (I) : Density of composite I at temperature T, 

(lbs/ft3) . 

VOLFRC (I) t Volume fraction of each composite I. 
CHARPR : 

This subroutine calculates the effective thermal con- 
ductivity and the heat capacity of the char. 

T: Temperature in °R. 


INTRPL: 

This program performs Lagrangian interpolation with 
non-equal step size between points. 

F: Dependent variable array. 

IMAX : Number of points in array. 

SOM : Value of the interpolated dependent variable. 

VAR : Value of X for which corresponding value of F 

is derived by interpolation. 

X: Independent variable array. 


THERM2 : 

This subroutine calculates the heat of formation of 
each chemical species, the heat capacity of the mixture and 
the heat absorbed by chemical reactions. 

CP DTI : Is the sensible enthalpy gain by the consti- 

tuent elements from a reference temperature of 298.16°K 
(cal/gram-mole) . 
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CPMX: Heat capacity of the gas mixture (calories/ 

, o „ 

gram-mole K) . 

ENT1 (I) : Enthalpy of species I (caloreis/gram-mole) . 

ENT (I) : Heat of formation of species I (cal/gram-mole) . 

HEAT1 : Rate of heat generated, or absorbed, by the 

chemical, reactions (calories/cm^-sec) . 

KINET : 

This program computes the rate of reaction of each che- 
mical species. 

AEF (J) ; Activation energy of reaction J (calories/ 
gram-mole) . 

AF ( J) : Frequency factor of reaction J (sec ^ 

DELZZ : Runge-Kutta step size (cm.) . 

DLFLUX(I) : Differential change in molal flux due to 

the chemical reaction of species I. This variable is used 
for the purpose of controlling the step size (gram-mole/ 

O 

cm-sec) . 

FK ( J) : Forward reaction rate constant of reaction J. 

FLUXMA(I) : Mass flux of each chemical species I (gm/ 

2 . 
cm -sec) . 

FLUXMO(I) : Molal flux of each chemical species I, 

(gram/moles/cm^-sec) . 

HEAT : Rate of heat generated or absorbed by the che- 

mical reactions (BTU/ft^-sec) . 

K2 : Is a counter to keep track of the number of tem- 

perature points stored in Table (I,J) . 
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K7 : When K7 is one, initialization occurs and sub- 

routine INOUT is called. When it is 2, this is bypassed. 

KOS : Total number of variables stored in the Table 

(I,J) array. 

KSP : Number of gas components in the chemical system. 

KSPl : Number of gas and solid species in the chemical 

system. 

NPEX (I , J) : Power on the concentration of product I 

in reaction J. 

NREX (I, J) : Power on the concentration of reactant I 

in reaction J. 

P: Pressure of the system in atmosphere. 

PERCE ( J) : Mole percent of specie J. 

PSC(I, J) : Stochiometric coefficient of the product I 

in reaction J. 

R: Gas constant (82.06 cm 3 -atm/gram-mole °K) . 

RATE ( J) : Rate of formation of species I (gram-moles/ 

cm 3 -sec) . 

RATER (J) : Specific reaction velocity of reaction J, 

(grara-moles/cm^-sec) . 

RK(J) ; Reverse reaction rate constant of reaction J. 

RR : Gas constant (1.98726 calories/gram-mole °K) . 

SF ( J) : Power on the temperature of the Arrhenius type 

kinetic expression. 

SPCIEl (J) : Species identification name. 

T: Temperature (°K) . 

TABLE (I , J) i Is an array where I represents the number 
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of variables stored and J the number of temperature points. 
The variables stored are in the following order: T, HEAT, 

WNEW, AVGFW and KSP1 values of Yl(I). 

TESS : Is the absolute maximum value of DLFLUX(I). 

This variable is used in controlling the step size for sta- 
bility. 

TF: Temperature (°F) . 

TP REV : Is the previous value of the temperature (°K) . 

WNEW: Total mass flux of the gases (lbs/ft^-sec) . 

XMW (I) : Molecular weight of species I. 

Y1 (I) : Mole fraction of species I. 

INPUT1 : 

This subroutine reads in the kinetic data. 

AK (J) : Empirical constant for the fit of the equili- 

brium constant with temperature. 

BK (J) : Empirical constant for the fit of the equili- 

brium constant with temperature. 

EKMAX(J) : Maximum allowable value for the equilibrium 

constant of reaction J. 

EKMIN(J) : Minimum allowable value for the equilibrium 

constant of reaction J. 

NCOEF ( J) : Is the sum of the stochiometric coefficient 

of the products minus the reactants. 
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INPUT FORMAT : A Typical Input For Non-Equilibrium Flow* 


CARD Is FORMAT (616, F10.1) 

COLUMNS 

NC = 18 


1-6 

NNS = 1 


7-12 

MM = 4 


13-18 

KODE ■ 1 


19-24 

KEY = 3 


25-30 

INDPT = 0 


31-36 

TFMAX = 5500 


37-46 

CARD 2 : FORMAT 

(F10.3, 10 x, 4F10.3) 


PL = 2160 


1-10 

TO = 500 


21-30 

EPS = .30 


31-40 

ZL = .350000 


41-50 

HI = .0000001 


51-60 

CARD 3 : FORMAT 

(3E15.5, F15.5) 


ALPHA = . 5E9 


1-15 

BETA » . 5E5 


16-30 

SIGMA * . 48E-12 


31-45 

EMIS = .90 


46-60 


*See Table B-2 for the complete Input data set 
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CARD 4: FORMAT (4E10.3) 

COLUMNS 

DTC - 3000 

1-10 

TCHAR = 1073 

11-20 

VT = 5.E-4 

21-30 


CARD 5 : FORMAT (6E10.3,I3) 

Sl(l) = 1.363250E0 
S2(l) = 1. 85605E-3 
S3 (1) = -7.6675E-7 
S4 (1) = . 151043E-9 
S 5 ( 1 ) = -1 . 139E-14 
S6 (1) = -6.49672E2 
JCODE(l) = 1 

CARD 6: FORMAT (6E10.3) 


All ( 1) ■ - . 712442E0 1-10 

A22 (1) = 7 . 34065E-3 11-20 

A33 (1) = -5.526E-6 21-30 

A44 (1) - 1 . 51400E-9 31-40 

A55 (1) = -2.382E-14 41-50 

A66 (1) = -6.80533E1 51-60 


CARDS 5 and 6 are read sequentially MM times as 
specified by CARD 1. In this example MM = 4. After CARDS 
5 and 6 are read MM times, CARD 7 is read in. 

CARD 7 : FORMAT (lOx, 3E10.3, 2x, 2A3, 14) 

11-20 


1-10 

11-20 

21-30 

31-40 

41-50 

51-60 

61-63 


TLOW(l) » 1000 
FW (1) = 14.0 


21-30 


YI(1) = 1.0E-71 

31-40 

528 

SPCIEl(l) = (Blank) 

43-45 


SPCIE2 (1) = CH 2 

46-48 


ICODE(l) = 0 

49-52 


CARD 8: FORMAT (7E10.3) 

AI(1) = 2 . 229698E0 

1-10 


BI(1) = 4.71092E-3 

11-20 


CI(1) = -1 . 7660E-6 

21-30 


DI(1) = 3.0649E-10 

31-40 


El (1) = -2 . 017E-14 

41-50 


FI (1) = 3.383295E4 

51-60 


GI (1) = 7.707984E0 

61-70 


CARD 9: 

All (1) = 3.551365E0 

1-10 


BII(l) = -2.5070E-3 

11-20 


CII(l) = 1.23550E-5 

21-30 


DII(l) = 1.175E-08 

31-40 


Eli (1) = 3.8124E-12 

41-50 


FII(l) = 3.366105E4 

51-60 


GII(l) = 1 . 796606E0 

61-70 


CARD 10: FORMAT (4E10.3) 

AA (1,1) = 1. 

1-10 


AA(1, 2) = 2.0 

11-20 


AA(1,3) = 0.0 

21-30 


AA(1,4) « 0.0 

31-40 
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CARD 7, CARD 8, CARD 9 and CARD 10 are read sequential- 
ly as a group (NC+NNS) number of times. Only the data for 
the first species, in this case CHj is presented. The data 
for other species is given in Table B-2. 

CARD 11 : FORMAT (2F15.5) COLUMNS 

EK (1) = 136.5 1-15 

SIG(l) = 3.822 16-30 

CARD 11 is read NC number of times as specified in 
CARD 1. 


CARD 12 : FORMAT (16) 

NDATA = 34 1-16 

CARD 13 : FORMAT (2F15.5) 

XTKE(l) =0.30 1-15 

ZOMGA(l) = 2.785 16-30 

CARD 13 is repeated NDATA number of times as specified 
by CARD 12. 

CARDS 1 through 13 are read in the MAIN program. 

These cards define the physical condition of the system. 

In addition they provide the thermodynamic data and 
physical constants for the pyrolysis species. CARDS 14 
through 19, below, provide the thermophysical information 
for the virgin material and also for the kinetic data for 
the degradation of the polymer. 
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CARD 14 : FORMAT (5E12.6) COLUMNS 

A = 0.37000070EO 1-12 

B = 0 . 7367133E-4 13-24 

C = 0.1532518E-5 25-36 

D = 1962704E-4 37-48 

E = . 8857809E-12 49-60 

CARD 14 is read in subroutine INDPTH. 

CARD 15 : FORMAT (5E12.8) 

A (1) = 0.10561790EO 1-12 

B ( 1) = -1 . 836062E-2 13-24 

C(l) = 1 . 7580490E-3 25-36 

D (1) = -1 . 678598E-5 37-48 

E ( 1) = 4 . 7310570E-8 49-60 

CARD 16 : FORMAT (5E12.8) 

Al(l) - 35642660E-1 1-12 

Bl(l) = 4 . 5790730E-2 13-24 

Cl(l) = 1. 2298170E-4 25-36 

Dl(l) = - . 8277667E-7 37-48 

El (1) = -. 2279748E-7 49-60 

CARD 15 and CARD 16 are read sequentially four times in 
subroutine PHMCR. For a thorough explanation of the sources 
of data for the phenolic resin see Appendix C. 

CARD 17 i FORMAT (216) 

COMPST 1-6 


NREACT 


7-12 
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CARD 18 ; FORMAT (4x, 16, 3E10.8) COLUMNS 

I = 5-10 

A ( J) = 11-20 

E ( J) = 21-30 - 

XN (I, J) = 31-40 

CARD 18 is read NREACT number of times. 

CARD 19 : FORMAT (310.3) 

RHOI(l) = 1-10 

RHOC(l) = 11-20 

MASFRC(l) = 21-30 

CARD 19 is read COMPST number of times. CARDS 17, 18 
and 19 are read in subroutine DNSITY. 

CARD 20 : FORMAT (12) 

NEQ = 1-2 

CARD 21 : FORMAT (19A4) 

EQN = Alphameric Reaction Expression 1-76 

CARD 22 : FORMAT (6(12, F3.0)) 

I = 1-2 

RSC (1, I) 3-5 

I = 6-7 

RSC (1, I) 8-10 

I = 11-12 

RSC (1,1) 13-15 


I 


16-17 



COLUMNS 
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PSC(1,I) 

I = 

PSC(1,I) 

I = 

PSC(1,I) 

CARD 23 : 

I = 

NREX (1,1) 

I = 

NREX (1,1) 

I = 

NREX (1,1) 

I • 

NPEX (1,1) 

I = 

NPEX (1,1) 

I = 

NPEX (1, I) 

CARD 24 : FORMAT (E8.0 

AF (1) = 

SF(1) = 

AEF(l) = 


13-20 

21-22 

23-25 

26-27 

28-30 

1-2 

3-5 

6-7 

8-10 

11-12 

13-15 

16-17 

18-20 

21-22 

23-25 

26-27 

28-30 

2x, 2F10.1) 

1-8 

11-20 


21-30 
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CARD 25 ; FORMAT (4E15.7, 15) COLUMNS 

AK (1) 1-15 

BK (1) 16-30 

EKMAX(l) 31-45 

NCOEF(l) 46-50 


CARDS 21,22,23,24 and 25 are read sequentially NEQ 
number of times. 

In CARD 22, J = 1 through 18 corresponds respectively 
to the following species: CH2, CH3, CH 4 , C2Hg, C2H4, C2H2, 
C 2 H, H 2 , H, N 2 , C 6 H 6 0, CgHg , nh 3 , CO, co 2 , H 2 0, OH, O, C. 



TABLE B-5. Listing of Typical Input Data for Non-Equilibrium Analysis 


18 1 4 

1 3 

1 0 


2160. 

500. 

.8 0.3500000 .00000001 

5821. 

. 50000E9 

. 50000E 5 

•481E-12 0.90 



1.363252E01. 85605E-3-7. 6675E-7. 1 51043 E-9-1 . 139 E-14-6 .49672 E2 1L 
-.712442E07.34065E-3-5.52 62E-61. 51400E-9-2 . 382 E-14-6. 80533 El 
3 . 043690E 06. 1 1 87 IE-4-7. 3 994E-9-2. 033E-1 12 .4594E-1 5-8. 54910E2 0 

1.00000E0 4. OCQOEOO O.OOOOEOO 0.0000E00 

1000. EC 3Q.070E0 .0034 C2H6 0 

. 1430 799E 1.1 88898E-1-. 70440E-5. 1 1 8720E-8-. 7445 E-13- . 1 143 l 1 E5 . 1401 32 1E2 
• 2882 03 9E 1.10321 9E-1. 1 1 9142E-4-. 14832E-7.44749E-1 1— • 1162Q9E 5. 7597900 El 
2.00000 EO 6.C0000EC 0.00000E0 0.00000E0 

1000. EO 28.054E0 .0218 C2H4 0 

3 • 5023E 00 1. 159E-02-4.4745E-6 7 .945E-10-5 . 323E-14 4.5439E03 2.4667E00 
1 • 120244E0 1.3906E-2 2 . 6568E-6-1 . 1560E-85 .2387E-125. 332889E3 1.58378E1 
2 • OOOOOE 0 4. 00000E0 0.00000E0 0.00000E0 

1000. EO 26.C38E0 .0233 C2H2 0 

4. 4966E00 5 . 2698E- 3- 1 . 840E-063 . 1054E-10-2 .000E-142 . 5637E004-3 . 14481E0 
7 • 90333E- 1 2.3466E-2-3.5542E-5 2 . 79 5 IE-8-8 . 448 E-l 2 2.6255E04 1.4005E01 
2 • OOOOOE 0 2 • OOOOOE 0 O.OOOOOEO O.OOOOOEO 

1000. EO 25.030EO 1.00E-71 C2H 0 

. 35 1 3 479E 1.35 8906E-2-. 13231 E- 5. 2305 20E-9-. 1530 E-l 3. 5788759 E5. 45232 85E1 
. 30062 69E 1 . 553788E- 2- . 351 12E-5. 124860E-8-. 1896 E-l 2. 5796960 E5.6920349E1 
2 . OOOOOE C 1 . OOOOOEO O.OOOOOEO O.OOOOOEO 

1000. EO 2.016E0 .237 2 H2 0 

3.04369E 00 6. 1187E-4 -7.399E-9 -2.03E-11 2 . 459E-1 5-8 . 549 1 E02 --1.648E00 
2 .846085604. 1932E-03-9. 61 1 9E- 69 . 5 1 23E-09-3 . 30 9E-1 2 -9 .67254E2 -1.41 18E0 
0 . OOOOOQE 0 2. OOOOOEO O.OOOOOEO O.OOOOOEO 

1000. EO 1.008E0 l.OOOE-71 H 0 

2. 500000E 0 O.OOOOOEO O.OOOOOEO O.OOOOOEO 0 .00000E02 . 547050E4-4.600 IE-1 
2 . 500000E 0 O.OOOOOEO O.OOOOOEO O.OOOOOEO O.OOOOOEO 2 .547050E4-4.600 IE- 1 
0. OOOOOOE 0 1 . OOOOOE 0 O.OOOOOEO O.OOOOOEO 

1000. EC 28.016E0 .0277 N2 0 

2.854576E0 1 . 59 76E- 3-6 . 2 566E- 71 . 1 3 1 6E- 1 0-7 . 69 E - 15-8.90174F2 6.39029F0 


DATA 

1 

DATA 

2 

DATA 

3 

DATA 

4 

DATA 

5 

OATA 

6 

OATA 

7 

DATA 

8 

DATA 

9 

DATA 

10 

DATA 

11 

DATA 

12 

OATA 

13 

DA TA 

14 

OATA 

15 

DATA 

16 

OATA 

17 

DATA 

18 

DATA 

19 

DATA 

20 

OATA 

21 

OATA 

22 

DATA 

23 

DATA 

24 

OATA 

25 

OATA 

26 

DATA 

27 

OATA 

28 

OATA 

29 

DATA 

30 

DATA 

31 

DATA 

32 

OATA 

33 

OATA 

34 
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3 . 69161 5E0- 1 • 33 33E- 32 • 6503 IE-6-9. 769 E-l 0-9 .977E-14-1.06283E3 2.28750E0 
0. 000000E 0 0 • OOOOOE 0 2.00000EQ O.OOOOOEO 

1500. EG 94.114E0 .0385 C6H60 0 

-3. 93 169E06. 93818E-2- 5.2106E-51 .24967E-82 .0915E-12-1 .33038E44. 187817EI 
-3.93169E06. 93 81 8E- 2- 5 .2 106E- 51 .24967E-82 .091 5E-1 2-1 • 33038E44.1878 17E1 
6 • OOOOOEO 6. OOOOOE 0 O.OOOOOEO l.OOOOOEO 

1500. EO 78.114E0 .0052 C6H6 0 

• 3 51 1 1 86E03 .75399E-2- 7. 9473E-6-7.5092E-93 • 0385E-128 .2644 18E31 .986606E1 
4.619 8 72E 02 • 88096E- 2- 1.1245E— 51. 95 764 E— 9—1 .257E-137.391621 E4— 1 . 78947E0 
6. OOOOOEO 6. OOOOOEO O.OOOOOEO O.OOOOOEO 

1000. EO 17.032E0 l.OOE-71 NH3 0 

2 . 149399E 06.49285E— 3-2 • 2695E-63.7394E-10-2 .36 IE-14— 6.40196E3 9.23891E0 
3 • 77162E 00-4 . 862 IE- 49. 8742 E-06-9.5679E-93 . 1 313E-12-6. 72810E3 1.4654E00 
O.OOOOOEOO 3. OOOOOEO l.OOOOOEO O.OOOOOEO 

1000. EO 28.011E0 .0233 CO 0 

2.9512E00 1 . 5526E-3-6. 1911E-7 l .I35E-10-7.788E-15-1 .4232E04 6.5314E00 
3.787133E0-2. 171E-035.07573E-6-3.4738E-97 .7217E-13-1 .43635E4 2.63355E0 
l.OOOOOEO O.OOOOOEO O.OOOOOEO l.OOOOOEO 

1000. EO 44.011E0 .0164 C02 0 

4.4129E003. 1923E-03 -1.298E-6 2. 41 5E-1 0-1 . 674E-14-4. 8944E04-7. 2876E-1 
2. 170100E 0 1.0378E-2-1 . 07 34E- 56. 34592 E-9-1 .628 E-l 2-4. 83526E4 1.06644E1 
l.OOOOOEO O.OOOOOEO O.OOOOOEO 2. OOOOOEO 

1000. EO 18.016E0 .0492 H20 0 

2 • 67075E 0 3.0317E-3 -8.535E-7 1 . 179E-10-6 . 197E-1 5-2 .9889E04 6.88383E0 
4 . 1 5650E 00— 1 • 7244E — 35. 6982E— 06— 4 • 5930E — 91 * 4234 E — 1 2— 3.02888E4—6.8616F— 1 
0 . OOOOOOE 0 2. OOOOOEO O.OOOOOEO l.OOOOOEO 

1000. EO 17.008E0 1.000E-71 OH 0 

2 . 889 554E 09,983 50E-4-2 • 1 880E-71 .9803E-11-3.845E-163.881179E35.559701E0 
3.823470E0-1.1 1 87E.-31 • 24 668E-6-2 • 103E-10-5 .254E-143. 585278 E3 5 «8253E-0l 
0 . OOOOOOE 0 l.OOOOOEO O.OOOOOEO l.OOOOOEO 

1000. EO 16.000000 l.OOE-71 0 0 

2 . 537256E 0- l . 84 22E- 5- 8. 801 8E-95 . 9643E-1 2-5 .574E-162 .92300 E044 .946794E0 
3.021 889E 0-2. 1737E-33 . 75422E-6-2 . 9947E-99. 0777E- 132 .9 137 19E42 .646007E0 
O.OOOOEOO O.OOOOOEO O.OOOOEOO l.OOOOEOO 


OATA 

35 

DATA 

36 

DATA 

37 

DATA 

38 

DATA 

39 

DATA 

40 

OATA 

41 

DATA 

42 

DATA 

43 

OATA 

44 

DATA 

45 

DATA 

46 

OATA 

47 

DATA 

48 

DATA 

49 

DATA 

50 

DATA 

51 

DATA 

52 

DATA 

53 

DATA 

54 

DATA 

55 

DATA 

56 

DATA 

57 

OATA 

58 

DATA 

59 

DATA 

60 

OATA 

61 

DATA 

62 

DATA 

63 

OATA 

64 

DATA 

65 

DATA 

66 

DATA 

67 

DATA 

68 


535 



1000. EC 12.0UE0 

.515 C 1 

DATA 

69 

1.3632 5E0G1.8 5605E-3-7.6675E-7L 

.5104E -10-1. 139E -14-6. 4967E02-7 .9890E00 

DATA 

70 

-7. 1244E- 1 7.34065F-3-5.5262E-6 

1 .514E-09-2.38 2E-1 4-6. 80533 El 2.79326E0 

DATA 

71 

1.0000E00 0. OOOQCE 0 O.OOOOEOO 

O.OOOOEOO 

OATA 

72 

136.5 3.822 

CH2 

DATA 

73 

136.5 3.822 

CH3 

DATA 

74 

136.5 3. 822 

CH4 

OATA 

75 

230.0 4.418 

C2H6 

OATA 

76 

205.0 4.232 

C2H4 

OATA 

77 

185.0 4.221 

C2H2 

DATA 

78 

185.0 4.221 

C2H 

OATA 

79 

33.3 2.986 

H2 

OATA 

80 

33.3 2.986 

H 

DATA 

81 

91.5 3.681 

N 2 

OATA 

82 

440.0 5.270 

C6H6 

DATA 

83 

400.0 5.000 

PH OH 

OATA 

84 

312.0 3.432 

NH3 

OATA 

85 

110.0 3.590 

CO 

DATA 

86 

190.0 3.996 

C02 

DATA 

87 

356.0 2.649 

H20 

OATA 

88 

113.0 3.433 

OH 

DATA 

89 

113.0 3.433 

0 

DATA 

90 

34 


OATA 

91 

0.30 2.785 


OATA 

92 

0.35 2.628 


DATA 

93 

2. 846085E04. 1932 IE -3-9. 61196-69 

• 51227E-9-3. 309 E-12-9.67253E2 

OATA 

94 

3.69161 5E 0- 1 .3333E-32. 65031E-6- 

. 976 88 E -9-9 .97 7 E- 14-1 .06283E3 

OATA 

95 

3. 59761 3E 07.fi 14566—4—2 .2387E— 74 

.2490E-11-3.346E-15-1.19279E3 0 

DATA 

96 

2.8 54 5 76E01.59763F-3-6.2566E-7. 

1 L3158E— 9— 7 .690E-15-8.90174E2 0 

OATA 

97 

3. 718995E0-2.5167E-38.58374E-6- 

8.2999E-92.7082E-12-1.10577E3 

DATA 

98 

1000. FO 14.00E0 

1.000E-71 CH2 0 

DATA 

99 

2, 22969 BE 04. 7 109 2E -3-1 . 7660E-63 

.0649E-10-2 .0176-143. 383295 E4 7 .707984E0 

OATA 

100 

3. 551365F0-2. 5070E- 31. 23550E-5- 

1 . 175E-083. 8124E-12 3. 36 6 105E41 ,, 796606F0 

OATA 

101 

1 . 000 00 OF C 2 • OOOOOE 0 0. 00000 EO 

0. OOOOOEO 

OATA 

102 
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1000. EO 15.035EO 1.000E-71 CH3 0 DATA 103 

2.802766E06.2504 5E-3-2.2, 892E-63.8993E-10-2.528E-141 .578749E45 .684117E0 OAT A 104 
3. 399505E 04. 26 783E- 32. 033 276-7-1.1 548 E-94. 1288E-131 . 564979E42 .703747E0 DATA 105 
1 . OOOOOOE 0 3.COOOQEO O.OOOOOEO O.OOOOOEO OATA 106 

1000. EO 16.043E0 .039 CH4 0 DATA 107 

1.18 OOOE 0 1.0950E-2-4. 062 OE- 6 7. 1 3 7E-10-4 . 749E-1 4-9 .8 556603 1.2506E01 OATA 108 
4.249768E0-6.9127E-3 3 . 1 602E- 5- 2 . 971 5E-89 . 5103E-1 2-1 .0 1 866E4-9 . 1755E-1 DATA 109 


0.40 

2.492 

DATA 

110 

0.45 

2.368 

DATA 

111 

0.50 

2.257 

DATA 

112 

0. 55 

2.156 

OATA 

113 

0.60 

2.065 

DATA 

114 

0.65 

1.982 

DATA 

115 

0.70 

1.908 

DATA 

116 

0.75 

1.841 

DATA 

117 

0.80 

1.780 

DATA 

118 

0.85 

1.725 

DATA 

119 

0.90 

1.675 

DATA 

120 

0.95 

1.629 

DATA 

121 

1.00 

1.587 

DATA 

122 

1.10 

1.514 

DATA 

123 

1.20 

1.452 

DATA 

124 

1.30 

1.399 

DATA 

125 

1.50 

1.314 

DATA 

126 

1.70 

1.248 

DATA 

127 

1.90 

1.197 

DATA 

128 

2.2 

1.138 

OATA 

129 

2.6 

1.081 

DATA 

130 

3.2 

- 1.022 

DATA 

131 

4.0 

0.9700 

DATA 

132 

5.0 

0.9269 

OATA 

133 

7.0 

0.8727 

OATA 

1 34 

10.0 

0. 8242 

DATA 

135 

20.0 

0. 7432 

DATA 

136 
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40.0 

0.6718 




DATA 

137 

70.0 

0. 6194 




DATA 

138 

100.0 

0.5882 




DATA 

139 

200.0 

0.5320 




DATA 

140 

400.0 

0.4811 




DATA 

141 

0. 37C0070E C 0.7367133E-4 .1532518E-5-. 

196 2704E-8. 8857809 E-12 

DATA 

142 

3 

7 




DATA 

143 

1 

8.3000E14 232.00CEO 

1. 

OOOOOEO 

DATA 

144 

2 

5. 10000E8 114.000EC 

3. 

OOOOOEO 

DATA 

145 

2 

2. 50000E5 1 CC.000E0 

1. 

30000E0 

DATA 

146 

2 

2. Q0000E7 140.000EG 

3. 

lOOOOEO 

DATA 

147 

3 

2. OOOOOE 5 70.000E0 

2. 

OOOOOEO 

DATA 

148 

3 

9. 70000E 6 122.000E0 

2. 

OOOOOEO 

DATA 

149 

3 

1.3000E10 172.000E0 

3. 

OOOOOEO 

DATA 

150 

68.6000E0 

5. 1450CE0 0.4000EO 




OATA 

151 

80.0000E0 

43.2800EO 0.2500E0 




DATA 

152 

17.8000E0 

9.64760E0 0.3500E0 




DATA 

153 

15 19 





DATA 

154 

CH4=CH2+H2( 1670-2090 K)K02L0V 

* RUSSIAN 

J. PHYS.CHEM.V0L37,SEP.1963 f 1-1-4 

DATA 

155 

3 1. 30 

0. 30 0. 1 1. 8 l. 

30 

0. 


DATA 

156 

3 1 30 

0 30 0 1 1 8 1 

30 

0 


DATA 

157 

4.5E+13 

0. 91. 




DATA 

158 

0. 1664396E+2 -0.436561 OE+5 



4.0E0 l.E-6 1 

DATA 

159 

CH4=CH3+H< 1590-1750 K) 




OATA 

160 

3 1. 30 

C. 30 Q. 21. 9 1. 

30 

0 . 


DATA 

161 

3 1 30 

0 30 0 2 1 9 1 

30 

0 


DATA 

162 

1 .0E+15 

0. 103. 



- 

DATA 

163 

0. 1725283E+2 -0. 531 5890E+5 



10.0E0 l.E-6 1 

DATA 

164 

2C H3=C 2H6 





DATA 

165 

2 2. 30 

0. 30 0. 4 1. 30 0. 

30 

0. 


DATA 

166 

2 2 30 

0 30 0 4 1 30 0 

30 

0 


DATA 

167 

1.5E + 10 

0. 28.2 




DATA 

168 

-C. 2030537E + 2 0.43R1153E + 5 



1 • F ♦ 10 5.2E-4 -1 

DATA 

169 

C 2H6=C 2H 4+H 2 ( 1600-3700 K) ,G. V 

.GULYAEV 

, 1-10 

DATA 

170 
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4 1. 30 0. 30 

0. 51. 8 l. 

30 

0 . 




DATA 

171 

4 1 30 0 30 

0 5 18 1 

30 

0 




DATA 

172 

9.GE+13 

0. 69.0 






DATA 

173 

0. 1604147E + 2 

-0. 1 71 5366E+5 



l.E+4 

l.E-l 

1 

DATA 

174 

C2H4=C2H2+H2< 1300-2000 Kl, RUSSIAN 

1 J. PHYS.CHEM. * 

P1128-1130.SEP1963 * 

DATA 

175 

5 1. 30 0. 30 

0. 61. 8 l. 

30 

0. 




DATA 

176 

5 1 30 0 30 

0 6 18 1 

30 

0 




DATA 

177 

1. 1E+13 

0.0 72.0 






DATA 

178 

0. 1538761E+2 

-0.2100359E+5 



2. 1E4 

l.E-8 

1 

DATA 

179 

C2H2=2C+H2( 2000 K ) GUL YAEV* I NST 

.OF 

PET 

SYNTHESIS 

, ACAD. OF SCI., 

USSR, I- 10 

DATA 

180 

6 1. 30 0. 30 

0. 19 2. 81. 

30 

0. 




DATA 

181 

6 1 30 0 30 

0 19 0 8 1 

30 

0 




DATA 

182 

1.7E+06 

0. 30. 






DATA 

183 

-0.5979611E+1 

0.2595788E-S-5 



2.E+8 

4.17E0 

0 

DATA 

184 

C 2H2=C 2H+H (INVERTED ORDER) 






DATA 

185 

6 I. 30 0. 30 

0. 71. 9 1. 

30 

0. 




DATA 

186 

6 1 30 0 30 

0 7 19 1 

30 

0 




DATA 

187 

4.5E+11 

0. 35.5 






DATA 

188 

0 • I603705E +2 

-0.5805091 E+ 5 



1. E12 

1 .OE-2 

1 

DATA 

189 

C+H20=CO+H2 







DATA 

190 

19 1. 16 1. 30 

0. 14 1. 8 1. 

30 

0 . 




DATA 

191 

19 0 16 1 30 

0 14 1 8 1 

30 

0 




DATA 

192 

2.3E+11 

-0.50 71.9 






DATA 

193 

0. 1717660E*2 

-0. 1626795E+5 



8.35E4 

1 .37E-7 

1 

DATA 

194 

C-K:02=2C0 







OATA 

195 

19 1. 15 1. 30 

0. 14 2. 30 0. 

30 

0 . 




DATA 

196 

19 0 15 1 30 

0 14 2 30 0 

30 

0 




DATA 

197 

1.5E + 10 

0. 85. 






DATA 

198 

0. 2068290E+2 

-0.2015984E+5 



1. 57E5 

l.E-06 

1 

DATA 

199 

H ?+M = 2H+M LVJP- 

181 1-1, 2-1 






DATA 

200 

8 1. 20 1. 30 

0. 9 2. 20 1. 

30 

0 . 




DATA 

201 

8 1 20 l 30 

0 9 2 20 1 

30 

0 




DATA 

202 

3 .6E + 18 

0.82 103.2 






DATA 

203 

0. 1465827E+? 

-0.5507806E+5 



.3450 

l.E-l 1 

1 

DATA 

204 
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H20+M=0H+H LWP( 300-3250 K) 

16 1. 20 1. 30 0. 17 l. 9 1. 30 0. 

16 l 20 1 30 0 17 1 9 1 30 0 

1.7E+22 1.31 118.0 

0. 157562 0E +2 -0.6166211E+5 0.35E0 

H+C02=C0+0H( 1273-2273 K) 

9 1. 15 1. 30 0. 14 1. 17 1. 30 0. 

9 1 15 l 30 0 14 1 17 1 30 0 

3.0E+12 0. 33. 

0. 44603 76E *■ l -0. 1056866E+5 3.85E0 

C02=C0+0( HARPER-BOEI NG) LWP 181 1 1 -2 
15 1. 30 C. 30 0. 14 1. 18 1. 30 0. 

15 l 30 0 30 0 14 l 18 1 30 0 

2.3E+11 -0.5 71.9 

0. 1787079E«-2 -0. 6348669E+5 0.766E0 

C6H60+H2=H20+C6H6 APRIL ,PH.D. THESIS. MAY 1969 
11 1. 8 1. 30 0. 16 1. 12 1. 30 0. 

11 1 8 l 30 0 16 1 12 1 30 0 

2-.0E ♦ 13 0. 45. 

-0. 5793374E-1 0.81C1410E+4 1.00E+7 

C6H6=3C2H2 APRIL ,PH.D. THESIS. MAY 1969 

12 1. 30 0. 30 0. 6 3. 30 0. 30 0. 

12 l 30 0 30 0 6 3 30 0 30. 0 

1.4E+09 0. 52. 

0. 3830254E + 2 -0. 6562 874E +5 1.0E+10 


l.E-14 1 


l.E-9 0 


5.076E-14 l 


1.000E-5 0 


1.0E-08 2 


DATA 205 
DATA 206 
DATA 207 
DATA 208 
DATA 209 
DATA 210 
DATA 211 
DATA 212 
DATA 213 
DATA 214 
DATA 2 15 
DATA 216 
DATA 217 
DATA 218 
DATA 219 
DATA 220 
DATA 221 
DATA 222 
DATA 223 
DATA 224 
DATA 225 
DATA 226 
DATA 227 
DATA 228 
DATA 229 
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TABLE B-6, Typical Output for Non-Equilibrium 

TNDEPTH FLOW A NALY S I S I NON-E GU IL I BR I UM FLOW! 

THEORETICAL 

CHAR BACK TEMPERATURE ( OF ) = 1471. 7 NUMBER OF GAS COMPONENTS= 18 

THICKNESS OF CHARI I NCHE SI =0 . 020672 THICKNESS OF DECOMPOSITION Z0NE=0 .006869 

TOTAL MASS FLUX! L B S/F T2-SEC )=. 34942 0 GAS MASS FLUX AT THE SURFACE= .168964 

FRONT SURFACE TEMPERATURE (OF 1 = 55 00. 0 SURFACE RECESSION VELOC I TY ( FT/SEC ) =0.01 000 

RATE OF HEAT ABSORBED IN THE CHAR ZONE ( BTU/FT2-SEC ) =1711 . 3933 
RATE OF HEAT ABSORBED IN THE DECOMPOSITION ZONE I B TU/F T2- SEC > = 244.2668 
PERCENT OF TOTAL HEAT ABSORBED IN THE CHAR ZONE= 0.8751294E 02 
PERCENT OF TOTAL HEAT ABSORBED IN DECOMP-ZONE= 0.1248705F 02 
PERCENT OF HEAT ABSORBED BY THE GAS IN THE CHAR ZONE= 0.4130847E 02 
PERCENT OF HEAT ABSORBED BY THF SOLIDS IN THE CHAR ZONE= 0.2505246E 02 
PERCENT OF HEAT ABSORBED BY REACTION IN THE CHAR ZONE= 0.3363907E 02 
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IMOEPTH FLOW AN AL Y S I S( NON-EQUIL I BR I UM FLOW) 

TEMPERATURE DROP (OF) = 4028.4 
PRESSURE DROP ( L8/FT2 1 = 9.1 
SURFACF HEAT FLUX ( B TU/F T2- SEC > = 1956.16 
RADIANT HEAT FLUX 8 TU/FT2-S EC )= , 546.15 
AERODYNAMIC HEAT FLUX ( BTU/F T 2-S EC ) = 2502.31 



CHAR OEPTH (FT) 

0.0006 

0.0006 

0.0007 

0.0007 

0.0007 


TEMPERATURE (OF) 

1471.7 

1556.4 

1648.1 

1746. 2 

L848.7 


PRESSURE ( 18/ FT 2 ) 

2169.1 

2168.9 

2168.6 

2168.4 

2168.2 


MASS FLUX(LB/FT2-SEC ) 
GAS COMPONENT 

0.1285 

C. 1606 0.1606 

COMPOSITION (MOLE/MOLE 

0. 1606 

GAS) 

0.1606 

1 

CH2 

0. 1000E-7C 

0.3100E-10 

0. 21 12E-09 

0.2614E-08 

0.1767E-07 

2 

C.H3 

0. 1000E-70 

0.3152E-1 1 

0. 2733 E- 10 

0.4766E-09 

0.4591E-08 

3 

CH4 

0. 8250E-01 

0. 8141 E- 01 

0. 8098E-01 

0.8100E-01 

0.8 100 E-0 l 

4 

C2H6 

0 . 7390E-02 

0. 7292 E- 02 

0. 7254E-02 

0.7253E-0? 

0.7245E-02 

5 

C2H4 

0.4739E-01 

0.4676E-01 

0.465 IE-01 

0.4652F-01 

0 . 4654E-0 l 

6 

C2H2 

0.5103E-01 

0.3 7C5E-01 

0. 31 63 E-0 1 

0.3184E-01 

0.3194E-01 

7 

C2H 

C.1000E-7C 

0. 1330E-01 

0. 1846E-01 

0. 18 26F-01. 

0.1816F-01 

a 

H2 

0.4400E 00 

0.4342E 00 

0.4319F 00 

0.4320E 00 

0.4320E 00 

9 

H 

0. 1000E-70 

0. 1330E-01 

0. 1R46E-01 

0. 1R26E-01 

0 . 1816E-0 1 

10 

N 2 

0.4751E-01 

0 . 46 8 8 E- 01 

0.46 63 E-0 l 

0.4664F-01 

0 . 466 5 E- 0 1 

1 1 

C6H6D 

0.8393F— Cl 

0. 8281 E -01 

0. 8238E-01 

0 . 8 240 E-0 1 

0 . 8240E-0 1 

12 

' C6H6 

0. 1 128F-01 

0. 11 13E-01 

0. 11 07E-01 

0.1 1 08 E-0 l 

0. 1 108E-01 

13 

NH3 

0. 1000E-7G 

0.9867F-71 

0.9815 E-7 1 

0.98 17 F- 71 

0.9818E-71 

14 

CO 

0. 5677 E -01 

0 .5601E-01 

0.557 2 E-0 1 

0. 5573 E- 01 

0 .5574E-01 

15 

CO 2 

0.3574E-01 

0 . 3526E-C1 

0. 3508E-01 

0. 3508E-01 

0. 3509E-01 

16 

H? 0 

0.1.364E 00 

0.1346E 00 

0. 1339E 00 

0.1339E CO 

0.1340E 00 

17 

OH 

0. 10 00F-70 

0 . 1085E-07 . 

0. 5764E-07 

0 .2 339 E-06 

0.6032E-06 

18 

0 

0. 1000E-70 

0. 1 109E-09 

C. 1 l 03E-09 

0. 1 104E-09 

0.1 1 04E-09 

1 9 

C 

0 . 1 1 1 OF 01 

0.1C95E 01 

0. 2 0 3 9 F 01 

0 . 1 0 3 9 F 01 

0.1Q90F 01 
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INDEPTH FLOW ANAL YS I S ( NON-E QU IL I BRI UM FLOW) 



CHAR DEPTH (FT) 

0.0008 

0.0008 

0.0009 

0.0009 

0.0010 

TEMPERATURE (OF) 

1953.8 

2063.0 

2172.5 

2283.7 

2396. 

5 


PRESSURE (LB/FT2) 

2168.0 

2167.7 

2167.5 

2167.3 

2167. 

1 


MASS FLUX(LB/ FT 2-SEC ) 

0.1606 

0. 1606 

0.1607 

0. 1607 

0.1608 


GAS COMPONENT 


COMPOSITION (MOLE/MCLE 

: GAS) 



I 

CH2 

0.2 l 92E-06 

0 . 1000E-69 

0. 1734E-05 

C.7617E-05 

0 . 1632E-04 


2 

CH3 

0. 7686E-07 

0 . 1000E-69 

0. 8569E-06 

0.4981E-05 

0.1114E-04 


3 

CH4 

0. 8099E-01 

0.8101E-01 

0. 8093E-01 

0.8079F-01 

0 . 8060E — 0 1 


4 

C2H6 

0 . 7169E-02 

0 . 7163E-02 

0.6793E-02 

0.6 194E-02 

0.5357E-02 


5 

C2H4 

0.4659E-01 

0 .4662F-01 

0.4682E-01 

0.4713 E-01 

0.4757E-01 


6 

C2H2 

0.31 95E-0 l 

0. 3192 E- 01 

0.3201 E-0 1 

0.3216E-01 

0 . 3238E-0 1 


7 

C2H 

0.181 5F-01 

0.1816E-01 

0. 1814E-01 

0. 181 IE-01 

0.1807 E-0 1 


8 

H2 

0.4321E 00 

0.4321E 00 

0.4325E 00 

0.4332E 00 

0 .4341 E 00 


9 

H 

0.181 5E -0 1 

0.181 2E-01 

0. 1815E-01 

0. 1822E-01 

0 • 1832E-0 1 


10 

N 2 

0.4664E-01 

0.4665E-01 

0 . 46 60 E-0 1 

0.46 53 E— 01 

0 . 4643E-0 1 


11 

C6H60 

0.8239E-01 " 

0.8239E-01 

0. 8231E-01 

0.8218 E-01 

0 . 8 199E-0 1 


12 

C6H6 

0. 11 08E-01 

0. 1109E-01 

0. 11 08E-01 

0. 1107E-01 

0.1 105E-0 1 


13 

NH3 

0.981 6E-7 1 

0.981 8E-71 

0. 9809E-71 

0. 9794 F- 71 

0.977ZF-71 


14 

CO 

0.5579E-01 

0.5571E-01 

0. 5603E-01 

0., 5659 E-01 

0.5741E-01 


15 

CO 2 

0.3508F-01 

0.3513E-01 

0.3504E-01 

0 « 3486 E- 0 1 

0 . 3459E- 0 1 


16 

H2 0 

0.1339E 00 

0.1340E 00 

0. 13 35 E 0 0 

0.1327E 00 

0.1315E 00 


17 

OH 

0. 2018F-05 

0. 1000E-69 

0. 18 04E-04 

0.1105 E-C3 

0.2490E-03 


18 

0 

0. 1 103F-09 

0.1C00E-69 

0. 1449E-04 

0. 1392E-03 

0.3274E-03 


19 

C 

0.1089E 01 

0.1090E 01 

0.1088E 01 

0.1086E 01 

0.1083E 01 
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INDEPTH FLOW A NAL Y S I S ( NQN-E QU IL I BR I UM FLOW) 


CHAR DEPTH (FT) 

0.0010 

0.0011 

0.0011 

0.0011 

0.0012 


TEMPERATURE (OF) 

2513. 

6 

2628 .5 

2744.1 

2860. 

4 

2976.0 


PRESSURE ( LB/FT2 ) 

2166. 

9 

2166.6 

2166.4 

2166. 

2 

2166.0 

MASS FLUX(LB/FT2-SEC) 

0.1607 

0. 1609 

0.1612 

0. 1616 

0.1622 


GAS COMPONENT 



COMPOSITION (MOLE/MOLE 

! GAS) 



1 

CH2 

0.9922E-05 


0.3263E-04 

0 • 6520E-04 

0.1081E-03 


0 • 1730E-03 

2 

CH3 

0.325 7E-04 


0.3727E-04 

0. 3926E-04 

0. 3988E-04 


0.7375E-04 

3 

CH4 

0.8058E-01 


0.8016E-01 

0. 7958E-01 

0.7885E— 01 


0.7782E-01 

4 

C2H6 

0.3694E-02 


0.2602E-02 

0. 1467E-02 

0.3201 E-03 


0.9261E-04 

5 

C2H4 

0 .498 IE-01 


0.4975E-01 

0.49 1 8E-0 1 

0.4805E-01 


0.4501E-0 l 

6 

C2H2 

0.31 80E-01 


0.3255E-01 

0. 3369E-01 

0.3524E-01 


0.3756E-01 

7 

C2H 

0.1 8 07E-0 1 


0. 1798E-01 

0. 1786E-01 

0. 1771E-01 


0. 1750E-0 l 

8 

H2 

0.4340E 00 


0.4361E 00 

0.4388E 00 

0.4423E 00 


0.4463E 00 

9 

H 

0.1771E-01 


0.1823E-01 

0. 1906E-01 

0.202 5E-01 


0.2 257 E-01 

10 

N2 

0.4643E-01 


0.4620E-01 

0 . 45 89E-0 1 

0 • 4549E—0 1 


0.4495E-01 

11 

C6H60 

0. 82 OOE-0 1 


0.8158E-01 

0. 8101E-01 

0.8028 E-01 


0.793 IE-01 

12 

C6H6 

0.11 05E-01 


0 . 1 iOOE-Ol 

0. 1094E-01 

0.1085 E-0 1 


0 • 1074E-0 1 

13 

NH3 

0.9773E-71 


0.9725E-71 

0 . 9659E-7 1 

0.9575E-71 


0.9462E-71 

14 

CO 

0.5692E-01 


0. 5895 E- 01 

0.6 1 85E-01 

0.6564E-01 


0.7105E-01 

15 

C02 

0 . 3393E-01 


0 . 3362E-0 l 

0.3332 E-01 

0. 3304E-0 1 


0 • 3265E-0 1 

16 

H20 

0.1333E 00 


0.1299E 00 

0. 1249E 00 

0.1 181 E 00 


0.1080E 00 

17 

OH 

0.1000E-69 


0 . 2 1 56E-03 

0. 1173E-02 

0 . 25 16E-02 


0.5017 E-02 

18 

0 

0.988 IE -0 3. 


0. 1 132E-02 

0. 1193E-02 

0 . 1 1 72E-02 


0.1 159E-02 

19 

C ' 

0.1084E 01 


0.1077E 01 

0. 1066 E 01 

0.1053E 01 


0.1034E 01 
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INDEPTH FLOW ANA L V S I S ( NON-E OU IL I BR I II M FLOW) 


CHAR DEPTH (FT) 

0.0012 

0.0013 

0.0013 

0.0014 

0.00 14 

TEMPERATURE (OF) 

3092.2 

3210.0 

3329.7 

3449.6 

3567.1 

PRESSURE (LB/FT2) 

2165.7 

2165.5 

2165.3 

2165.0 

2164.8 

MASS FLUX ( LB/ FT 2-SEC ) 

0.1639 

0. 1660 

0.1673 

0.1682 

0.1685 



GAS COMPONENT 


COMPOSITION (MOLE/MOLE 

: GAS) 


1 

CH2 

0 . 388 8E-03 

0. 7688E-03 

0. 1362E-02 

0 . 2495 E— 02 

0.4413E-02 

2 

CH3 

0. 1436E-03 

0.2467E-03 

0 . 40 62E-03 

0.7 837E-03 

0 . 1 526E-02 

3 

CH4 

0. 7485E-01 

0. 7101E-01 

0.67 88 E-0 1 

0 . 6487 E-0 1 

0.6145E-01 

4 

C2H6 

0 . 1252E-04 

0.5737E-05 

0. 2738E-05 

0.8772E-06 

0 . 1 700E-06 

5 

C2H4 

0.3584E-01 

0.241 8E-0 1 

0. 1454E-01 

0.5 8 90 E-0 2 

0.1482E-02 

6 

. C2H2 

0.44G4E-01 

0 . 5225E-01 

0. 5949E-01 

0.6673E-01 

0 . 7059E-0 1 

7 

C2H 

0. 1690E-01 

0. 1614E-01 

0. 15 61 E-0 1 

0. 1528E-01 

0.1511E-01 

8 

H2 

0.4558E 00 

0.4656E 00 

0.4724E CO 

0.4795E 00 

0.4842E 00 

9 

H 

0.311 4E-0 1 

0.4408E-01 

0. 5339E-01 

0.5617E-01 

0 . 5636E-01 

10 

N 2 

C.4341E-01 

0.4148E-01 

0.4011 E-0 1 

0.3925 E-0 1 

0 . 388 1 E-0 1 

11 

C6H60 

0.7651E-01 

0. 7299E-01 

0. 7047E-01 

0.6880 E-01 

0.6782E-01 

12 . 

C6H6 

0. 1 C40E-01 

0.99 79E-02 

0. 9688E-02 

0.9529E-02 

0.9475E-02 

13 

NH3 

0.9137E-71 

0. 8730E-71 

0. 8442E-71 

0.8260E-71 

0, 8168 E- 71 

14 

CO 

0.8547E-01 

0.1013E 00 

0. 11 06E 00 

0.1161E 00 

0.1186E 00 

15 

CO? 

0.3153E-01 

0.3012E-01 

0. 2913E-01 

0. 2850E-01 

0.28 1 8E-0 1 

16 

H20 

0.7827E-01 

0.4099E-01 

0. 1654E-01 

0.4952E-02 

0.1275E-02 

17 

OH 

0.141 2E-01 

0.2770E-01 

0 . 3737E-0 1 

0 .40 1 2 E-0 1 

0.3974E-01 

18 

0 

0. 1U9E-02 

0. 1069E-02 

0. 1034E-02 

0. 1012E-02 

0 • 1000E-02 

19 

C 

0.9818E 00 

0.9185E 00 

0.8758E 00 

C.8494E 00 

0.8366E 00 
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INDEPTH FLOW ANALYS I S< NON-E QU IL I BRI UM FLOW) 


CHAR DEPTH (FT) 

0.0015 

0.0015 

0.0015 0.0016 

0.0016 

TEMPERATURE (OF) 

3681.8 

3793.8 

3903.2 4010. 

5 

4115.6 


PRESSURE l LB/FT 2) 

2164.6 

2164.3 

2164.1 2163. 

9 

2163.6 


MASS FLUX(L8/FT2-SEC ) 

0.1686 

0. 1686 

0.1686 0.1686 

0.1685 


GAS COMPONENT 


COMPOSITION (MOLE/MOLE GAS) 



,1 

CH2 

0. 7336E-02 

0.111 5E-01 

0.1608E-01 0.2132E-01 


0.2673E-01 

2 

CH3 

0.2718E -02 

0.4308E-02 

0.6392E-02 0.8602E-02 


0 • 1089E-0 1 

3 

CH4 

0 . 5686E-01 

0.5102E-01 

0.4345E-01 0. 3540E-01 


0.27086-01 

4 

C2H6 

0.2384E-07 

0.4605E-08 

0.31UE-08 0.17156-08 


0 • 1804E-08 

5 

. C2H4 

0.2476E-03 

0.6069E-04 

0.4416E-04 0. 35526-04 


0.290 IE-04 

6 

C2H2 

0. 71 69E-01 

0. 7192 E- 01 

0.7207E-01 0.7237E-01 


0 . 7296E-0 1 

7 

C2H 

0. 1 500E-01 

0. 1490E-01 

0 . 14 78 £-0 1 0 . 14646-01 


0.14506-01 

8 

H2 

0.4862E 00 

0.4875E 00 

0.4888E 00 0.4902E 00 


0.4914E 00 

9 

H 

0.5716E-01 

0. 5839 E— 01 

0.6003E-01 0.6176E-01 


0 . 6353E-0 1 

10 

N 2 

0 . 38 53E-0 1 

0 . 3828E-01 

0.3796E-01 0.3762 E-0 1 


0 . 3726E-Q 1 

11 

C6H60 

0.67 09E-0 1 

0.6634E-01 

0. 6542E-01 0.64416-01 


0.63256-01 

12 

C6H6 

0.9459E-02 

0.9437 6-02 

0. 9387E-02 0.9308E-02 


0.91906-02 

13 

NH3 

0.8U0E-71 

0. 8057E— 71 

0.7990E-71 0. 7919 E- 71 


0.78426-71 

14 

CO 

0.1190E 00 

0.U87E 00 

0.1181E 00 0.1175E 00 


0.1170E 00 

15 

C02 

0.2797E-01 

0. 2778E-01 

0 • 27 54E-0 1 0.2728E-01 


0.26996-01 

16 

H20 

0. 2597E-03 

0. 1016E-03 

0. 7977E-04 0.6569E-04 


0 • 5428E-04 

17 

OH 

0. 3946E-01 

C.3920E-01 

0. 38 8 8 E-0 1 0.3853E-01 


0.38166-01 

18 

0 

0.9932E-03 

0.9866E-03 

0. 97 84E-03 0.9697E-03 


0.96036-03 

19 

C 

0.8299E 00 

0.8245E QC 

0.8179E 00 0.8108E 00 


0.80316 00 
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INDEPTH FLOW ANAL YS I S ( NON-E QU I L I 8 R I UM FLOW) 


CHAR DEPTH (FT) 

0.0017 

0.0017 

0.0018 

0.0018 

0.0019 

TEMPERATURE (OF) 

4218.6 

4319.4 

4418.2 

4514.8 

4609.5 

PRESSURE (LB/FT2) 

2163.4 

2163.2 

2162.9 

2162.7 

2162.5 

MASS FLUX (LB/FT2-SEC ) 

0.1685 

0. 1685 

0.1685 

0. 1685 

0.1684 


GAS COMPONENT COMPOSITION (MOLE/MOLE GAS) 


1 

CH2 

0 . 3083E-0 l 

0.3420E-01 

0.3648E-01 

0.3788 E-01 

0 o 3868E-0 1 

2 

CH3 

0. 1268E-01 

0.1430E-01 

0 . 1562E-Q 1 

0. 16726-01 

0.1767E-01 

3 

CH4 

0. 2068E-01 

0. 1519E-01 

0.11 19E-01 

0 o 8278 E-02 

0.6150E-02 

4 

C2H6 

0.13 03E-09 

0. 3227E-08 

0. 3910E-08 

0.361 5E-08 

0.571 IE-08 

5 

C2H4 

0 . 2462E-04 

0.2100E-04 

0. 1825E-04 

0. 1608E-04 

0. 1428E-04 

6 

C2H2 

0 . 73 8 1E-0 1 

0. 7513E-01 

0. 7683E-01 

0.7889E-01 

0.811 4E-0 1 

7 

C2H 

0.1439E-01 

0. 1428E-01 

0. 1419E-01 

0.1410 E-01 

0 o 1420E-0 1 

8 

H2 

0.4922E 00 

0 .4926 E 00 

0.49236 00 

0.4914E 00 

0.4900E 00 

9 

H 

0 .64906-01 

0.661 2E-01 

0.67116-01 

0.6788E-01 

1 0.687 1E-0 1 

10 

N 2 

0 . 3696E-0 1 

0.3668E-01 

0. 3644E-01 

0 . 362 1 E-01 

0 . 3599E-0 1 

11 

C6H60 

0.6220E-01 

0.6106E-01 

0. 5993E-01 

0 . 58 75 E-01 

0.5751E-01 

12 

C6H6 

0.9056E-02 

0.887 56-02 

0. 86566-02 

0.838 5E-02 

0 . 8060E-02 

1 3 

NH3 

0 . 778 0E-71 

0.7720E-71 

0. 76706-71 

0. 7622 E- 71 

0.7576E-71 

14 

CO 

0.1167E 00 

0.1165E 00 

0. 1166E 00 

0.11746 00 

0.1183E 00 

15 

C02 

0.2675E-01 

0.265 0E-01 

0.2625E-01 

0.2547E-01 

0 . 2469E— 0 1 

16 

H20 

0. 4620E-04 

0.391 7E-04 

0. 335RE-04 

0. 2896E-04 

0.251 IE-04 

17 

OH 

0.3785E-01 

0.3756E-01 

0.37326-01 

0.3709E-01 

0.3686F-01 

18 

0 

0.9526E-03 

0.9454E-03 

0. 95306-03 

0 . 1 486 E-02 

0.2002E-02 

19 

C 

0.7969E 00 

0.7911E 00 

0. 78616 00 

0.7813E 00 

0 .77676 00 
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INDEPTH FLOW ANALYSIS! NO N-EQUILIBRIUM FLOW) 


CHAR OEPTH (FT) 

0.0019 

0.0019 

0.0020 

0.0020 

0.0021 


TEMPERATURE (OF) 

4702. A 

4793.9 

4884.4 

4974.1 

5063. 

1 


PRESSURE (LB/FT2) 

2162.2 

2162.0 

2161.7 

2161.5 

2161. 

2 


MASS FLUXIL0/FT2-SEC) 

0 . 1684 

0. 1684 

0.1684 

0.1685 

0.1685 


GAS COMPONENT 


COMPOSITION (MOLE/MOLE GAS) 



I 

CH2 

0.3901E-01 

0.3870E-01 

0. 3812E-01 

0. 3749E-01 

0.3681E-01 


2 

CH3 

0 . 1 797E-01 

0. 1835E-01 

0. 18 56E-01 

0. 1868E-01 

0.1872E-01 


3 

CH4 

0.A816E-02 

0.4053E-02 

0.35 05 E— 02 

0.3020E-02 

0.2594E— 02 


4 

C2H6 

0 . 368 8E-09 

0 . 2060E-08 

0. 1336E-08 

0.2239E-08 

0.1513E-08 


5 

C2H4 

O.U96E-04 

0. 1053E-04 

0.8926E-05 

0. 7524E-05 

0.6251E-05 


6 

C2H2 

0. 7816E-01 

0. 7972 E- 01 

0.7830E-01 

0.7638E-01 

0.7318E-01 


7 

C2H 

0. 1926E-01 

0.201 7E-01 

0. 2388E-01 

0 . 2808 E-0 1 

0 . 3345E-0 1 


8 

H2 

0.A853E 00 

0.4760E 00 

0.4645E 00 

0.4514E 00 

0.4378E 00 


9 

H 

0.7A59E-01 

0. 8450 E- 01 

0. 9776E-01 

0.1129E 00 

0.1290E 00 


10 

N2 

0.3559E-01 

0 . 3519E-01 

0.3466E-01 

0 . 3409 E-0 1 

0.3348E-01 


11 

C6H60 

0. 55 95E-01 

0.5431E-01 

0. 5249E-01 

0.5057E-01 

0.486 2F-0 1 


12 

C6H6 

0.765AE-02 

0 . 7 190E-02 

0 . 6664E— 02 

0 .6 1 00 E-0 2 

0.5522E-02 


13 

NH3 

0.7490E-71 

0. 7406E-71 

0. 7296E-71 

0.717 5E- 71 

0.7 046E- 7 1 


14 

CO 

0.1199E 00 

0.1199E 00 

0. 12 C8E 00 

0.1217E 00 

0.1225E 00 


15 

CO 2 

0.2 350E-01 

0. 2204E-01 

0.2026 E-0 1 

0.182 7 E-0 1 

0.161 3E-0 1 


16 

H20 

0.21 75E-0A 

0. 1867E-04 

0. 1594E-04 

0.1 358E-04 

0.11 58 E-04 


17 

OH 

0. 3645E-01 

0. 3603E-01 

0. 3551 E-0 1 

0 . 3494E-0 1 

0.3433E-01 


18 

0 

0.2 774E-C2 

0.3794E-02 

0.50 10E-02 

0.6379E-02 

0.7841E-02 


19 

C 

0.7680E 00 

0.7593E 00 

0.7480E 00 

0.7354E 00 

0.7219E 00 
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INOEPTH FLOW ANALYST S( NON— 6 QUILIBRIUM FLOW} 



CHAR DEPTH (FT) 

0.0021 

0.0022 

0.0022 

0. 0023 

0.0023 


TEMPER AT U PE (OF) 

5151.5 

5239. 

3 

5326. 

6 

5413.6 

’ 5500.1 


PRESSURE (LB/FT?) 

2161.0 

2160. 

7 

2160. 

5 

2160.3 

2160.0 


MASS FLUX ( LB/FT2-SEC ) 

0.1685 

0. 1686 

0.1687 

0. 1688 

0.1690 


GAS COMPONENT 


COMPOSITION (MOLE/MOLF GAS) 


1 

CH? 

0.361 4F-0 1 

0 . 354.2 E— 01 


0.34 76E-C1 


0 . 3404E-0 1 

0. 33216-01 

p 

CH 3 

0. 1 869E-0 l 

0. 1859F-01 


0. 1847F-01 


0.18286-01 

0.17976-01 

3 

CH4 

0.2231E-02 

0. 1917E-02 


0. 1646E-02 


0.14196— 02 

0.1253E-02 

4 

C?H6 

0.2312F-08 

0. 16306-08 


0. 2305E-08 


0. 1704E-08 

0. 1000E-69 

5 

C2H4 

0.5228E-05 

0.43 1 3E-05 


0. 3641 E-05 


0.2994 E-05 

0 .24386-05 

6 

CRH? 

0. 7054E-01 

0 .67426-01 


0.6521E-01 


0.6137E-01 

0.5658E-01 

7 

CRH 

0.3826E-01 

0 • 4330E-01 


0.4752E-01 


0.52966-0 l 

0.5877F-01 

3 

H? 

0.4235E 00 

0.4074E 00 


0.3924E 00 


0.3753E 00 

0.3540E 00 

9 

H 

C.1457F 00 

0.1649E 00 


0. 1824E 00 


0.2032E 00 

0.2300E 00 

10 

W2 

0 . 3 .? 8 6 F - 0 1 

0. 3221 F- 01 


0. 3161E-01 


0.3095F-01 

0.3020E-01 

1 I 

C6H6D 

0. 46686-01 

0 .44736-01 


0. 42 89 6-01 


0.4L02E-01 

0 • 3909E-0 1 

12 

C 6 H 6 

0.4949F-02 

0.43 94E- 02 


0. 3876E-02 


0.3391E-02 

C.2943E-02 

l 3 

NH 3 

0.691 7F-71 

0.6779E-71 


Q. 66 53 E -71 


0.6514E-71 

0.6356F-71 

14 

r n 

0.1 23 5E 0 0 

0.124 IE 00 


0. 12 48 E 0 0 


0.1250E 00 

0.124SE 00 

15 

cc? 

0. 1 394F-01 

0 . 1 180E-01 


0. 9822E-02 


0 . 802 2E-02 

0.6397E-02 

15 

H2C 

0 . ° B 7 9 E - 0 5 

0.8391F-05 


0. 71 79E-05 


0.61 05E-05 

0.5121F-Q5 

1 7 

OH 

0. 3 3 73E-01 

0.3310E-01 


0. 3251E-01 


0 . 3186E-01 

0.31116-01 

1 3 

n 

G.9345E-0? 

0. 10 76E-01 


0. 1207F-01 


0. 1317E-01 

0 . 14056-01 

1 5 

c 

0.7CR2E 00 

0.69366 00 


0.6R0OE 00 


0.665 OE 00 

0.6473E 00 
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APPENDIX C 


THERMOPHYSICAL PROPERTIES DATA 

This appendix contains all the thermodynamic and phy- 
sical property data used in this research along with the 
references and methods used to compute the heat capacity, 
enthalpy, free energy, thermal conductivity and viscosity 
of gases. In addition, the thermophysical properties re- 
quired to characterize both the char and the virgin materia 
are also presented. At the end of the chapter, a brief 
explanation and a typical input of the Thermochemical 
Generation Program (TGP) is presented. This program was 
written to develop a uniform thermodynamic data base for 
converting thermodynamic information from various sources 
to a convenient polynomial form. 

Thermophysical Properties of Gases : The thermodynamic 
and physical properties data used by the ABLATINl and 
ABLATIN2 systems is presented. The thermodynamic data is 
presented in table form giving the values of empirical 
constants for polynomial fit. In this research it was con- 
venient to use the thermodynamic data in functional form. 
This procedure not only reduced memory space, but in 
addition, it reduced the need for interpolation between 
tables of stored values. Coefficient for the polynomial 
fits have been obtained from numerous sources, mainly from 
the work of NASA at Lewis (1) , Bauer and Duff at Los Alamos 
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(2 ) , API Project 44 (8) and JANAF (6) . The polynomial 
equations used for the heat capacity is of the form: 


C° 

P 

R~ = a+bT+cT 2 +dT 3 +eT 4 (C-l) 

If we define the sensible enthalpy plus the heat of 
formation at a reference temperature as H 0 ,^, then: 

T 

= A H° + i C°dT (C-2) 

T t R t r P 

Where is the heat of formation at the reference 

temperature T R . Substitution of Equation (C-l) into (C-2) 
and integrating results after some manipulation results in: 

H° 

h T 2 3 4 

= a+b T+c T z +d T +e T*+f (C-3) 

RT~ 7 T T 5* f 


The definition of absolute entropy is: 

dT (C-4) 

0 T 

Hence, substituting Equation (C-l) into Equation (C-4) 
and integrating results after some manipulation: 




a In T + bT + c T 2 + d T 3 + c T 4 (C-5) 

7 T T 


The definition of Standard Molal Free Energy is 
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as follows: 



Substituting the deffinitions for H° and S° in Equation 
(C-6) results in a polynomial expression for the free energy 
which is, after dividing by RT: 



(07) 

a (1-lnT) - b T - c T 2 - dT 3 - eT 4 + 'f - g 
7 r T7 7TT T 


A set of coefficients is presented in Table C-l for 
Equations (C-l) , (C-3) , (C-5) and (C-7) . The coefficients 
presented in Table C-l are two temperature intervals . A 
high temperature interval (1000°K-6000°K) denoted by the 
letter H and a low temperature interval (300°K-1000°K) de- 
noted by the letter L. Most of the data used was from 
McBride et:. al. (1) of NASA, covering the intervals 300°K 
to 1000°K and 1000°K to 6000°K. At 1000°K the low and high 
temperature fits were forced to match. The species for 
which data of McBride et. al_. (1) was used were: C (Graphite), 

C (g) , C 2 , C^ 1 CH , CH 2 f CH^ f CH^ , ^“2^2 / ^"2^4^ CN,C 2 N 2 , CO, 

C0 2 , H, H , HCO, H 2 0, N, N 2 , NH, NH 3 , NO, N0 2 , NjO, N 2 0 4 , 

0, 0 2 and OH. The coefficients presented for the other 
species were obtained using the heat capacity coefficients 
of Duff et. al_. (2) and the other two coefficients, f and g, 
were calculated from them. 



TABLE C-l: Coefficients for the Empirical Pit of 


Cp/R, S°/R and Pj/RT 




A 

B 

C 

D 

E 

P 

G 

C(G) 

H 

.2579E1 

-.1437E-3 

.7225E-7 

-.7417E-11 

.1370E-16 

.8543E5 

.4321E1 

L 

.2541E1 

-.2210E-3 

.4736E-6 

-.4529E-9 

.1602E-12 

.8545E5 

.4573E1 

c 2 

H 

.4045E1 

.1697E-3 

.1585E-6 

-.5527E-10 

.4859E-14 

.9961E5 

.1281E1 

L. 

♦7509E1 

-.1065E-1 

.1007E-4 

-.8621E-9 

-.1752E-11 

.9880E5 

-.1607E2 

C, 

H 

.4713E1 

.2903E-2 

-.1214E-5 

.2285E-9 

-.1599E-13 

.9375E5 

-.2330E1 

3 

L 

.2633E1 

.9419E-2 

-.9593E-5 

.5579E-8 

-.1424E-11 

.9431E5 

.8079E1 

C 4 

H 

.6077E1 

.3443E-2 

-.9479E-6 

.9347E-10 

-.1791E-14 

.1195E6 

-.5995E1 

L 

. 5670E1 

. 5883E-2 

-.4751E-5 

.2349E-8 

-.4648E-12 

.1195E6 

-.4253E1 

°5 

H 

.7577E1 

.4617E-2 

-.1271E-5 

.1187E-9 

-.1123E-14 

.1186E6 

-.1431E2 

L 

.7279E 

.6762E-2 

-.5027E-5 

.2562E-8 

-.5450E-12 

.1186E6 

-.1311E2 

Cr 

H 

.9077E1 

.5791E-2 

-.1595E-5 

.1441E-9 

-.4628E-15 

.1437E6 

-.1904E2 

o 

L 

.8887E1 

.7643E-2 

-.5307E-5 

.2779E-8 

-.6265E-12 

.1437E6 

-.1837E2 

C 7 

H 

.1057E2 

.6963E-2 

-.1917E-5 

.1689E-9 

.2555E-15 

.1435E6 

-.2736E2 


L 

.1049E2 

.8524E-2 

-.5585E-5 

.2995E-8 

-.7075E-12 

.1435E6 

— .2722E2 

c n 

H 

.1207E2 

.8133E-2 

-.2238E-5 

.1934E-9 

.9903E-15 

.1696E6 

-.3209E2 

8 

L 

.1211E2 

.9403E-2 

-.5861E-5 

.3207E-8 

-.7885E-12 

.1696E6 

-.3249E2 

C Q 

H 

.1357E2 

.9308E-2 

-.2562E-5 

.2189E-9 

.1641E-14 

.1670E6 

-.4041E2 

8 

L 

.1371E2 

.1028E-1 

-.6144E-5 

.3427E-8 

-.8705E-12 

.1669E6 

-.4134E2 

o 

rH 

O 

H 

.1508E2 

.1048E-1 

-.2885E-5 

.2439E-9 

.2339E-14 

.1966E6 

-.4514E2 

L 

.1532E2 

.1117E-1 

-.6421E-5 

.3641E-8 

-.9510E-12 

.1965E5 

-.4661E2 
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E 




A 

B 

C 

CH 

H 

.1961E1 

• 3312E-2 

-.1469E-? 


1 

•3544E1 

.8795E-4 

-.1826E-5 

C 2 H 

H 

•3513E1 

.3589E-2 

-.1323E-5 


L 

.3006E1 

.5537E-2 

-.3511E-5 

CjH 

H 

.3965E1 

.6200E-2 

-.2265E-5 


L 

.2473E1 

.1175E-1 

-.8045E-5 

c 4 h 

H 

.5873E1 

.7403E-2 

-.2729E-5 

T 

L 

.2695E1 

.2267E-1 

-.2451E-4 

C S H 

H 

.5465E1 

. 1118E— 1 

-.4299E-5 

j 

L 

.1021E1 

. 3109E-1 

-.3043E-7 

C 6 E 

H 

.8361E1 

.1164E-1 

-.4637E-5 

O 

L 

.2717E1 

.3941E-1 

-.4505E-4 

C„H 

H 

.9024E1 

.1425E-1 

-.5733E-5 

l 

L 

.1743E1 

• 4949E-1 

-.5613E-4 

C 8 H 

H 

. 9773 EI 

.1663E-1 

-.8198E5 

L 

.1532E1 

.5652E-1 

-.6393E-4 

c 9 h 

H 

.1113E2 

.1843E-1 

-.7453E-5 

L 

.1099E1 

.6769E-1 

-.7887E-4 

° 10 H 

H 

.1255E2 

. 2011E-2 

-.8136E-5 

L 

. 2248E1 

.7022E-1 

-.8037E-4 

CH 2 

H 

.2229E1 

.4711E-2 

-.1766E-5 

4 

L 

.3551E1 

2507E-2 

.1235E-4 

° 2 H 2 

H 

.4497E1 

.5269E-2 

-.1840E-5 


L 

.7903E0 

.2347E-1 

-.3554E-4 


.2929E-9 

•4455E-8 

-.2124E-13 

-.2186E-11 

.7105E5 

.7059E5 

.1021E2 

.1823E1 

.2305E-9 

.1249E-8 

-.1530E-13 

-.1896E-12 

.5789E5 

.5797E5 

.4523E1 

.6920E1 

. 3717E-9 

-.2262E-13 

.6283E5 

.3467E1 

♦2729E-8 

-.3544E-12 

.6307E5 

.1054E2 

.4437E-9 

.1315E-7 

-.2637E-13 

-.2673E-11 

.7605E5 

.7649E5 

— .4010E1 
.1039E2 

.7241E-9 

♦1481E-7 

-.4441B-13 

-.2783E-11 

.9152E5 

.9217E5 

-.2843B1 

.1757E2 

.8085E-9 

.2477E-7 

-.5150E-13 

-.5100E-11 

.1053E6 

.1050E6 

-.1363E2 

.1184E2 

.1009E-8 
. 3040E-7 

-.6475E-13 

-.6175E-11 

.1184E6 

.1193E6 

-.1733E2 

.1562E2 

.1181E-8 

.3473E-7 

-.7600E-13 

-.7085E-11 

.1418E6 

.1429E6 

-.2083E2 

.1640E2 

.1318E-8 

.4345E-7 

-.8510E-13 

-.8925E-11 

.1435E6 

.1448E6 

-.2718E2 

.1813E2 

.1440E-8 

.4395E-7 

-.9305E-13 

-.9005E-11 

.1707E6 

.1713E6 

-.2677E2 

.1442E2 

.3065E-9 

-.1175E-7 

-.2017E-13 

.3812E-11 

.3383E5 

.3366E5 

.7708E1 

.1797E1 

. 3105E-9 
.2795E-7 

-. 2000 E-13 
-.8448E-11 

.2563E5 

.2625E5 

-.3145E1 

.1401E2 
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D 


E 


F 


G 


.5242E-9 

.1110E-7 

-.3264E-13 

-.2153E-11 

.5191E5 

.5230E5 

.1827E0 

.1305E2 

.6390E-9 
. 2047E-7 

-.4081E-13 

-.4277E--11 

.5391E5 

.5449E5 

-.9060E1 

.1033E2 

.8823E-9 

.2475E-7 

-.5645E-13 

-.5060E--11 

.8063E5 

.8139E5 

-.8785E1 

.1669E2 

.9113E-9 

.3087E-7 

-.5860E-13 

-.6480E-11 

.8223E5 

.8307E5 

-.1805E2 

.1082E2 

.1167E-8 
. 2777E-7 

-.7450E-13 

-.5745E-11 

.1079E6 

.1088E6 

-.1389E2 

.1366E2 

.1277E-8 

.4207E-7 

-.8285E-13 

-.8700E-11 

.1099E6 

.1H2E6 

-.2657E2 

.1567E2 

.1477E-8 

.3834E-7 

-.9480E-13 

-.7975E-11 

.1331E6 

.1342E6 

-.2275E2 

.1499E2 

.1532E-8 

.5162E-7 

-.9955E-13 

-.1072E-10 

.1381E6 

.1396E6 

-.3773E2 

.1359E2 

. 3899F— 9 
.1155E-8 

-.2528E-13 

.4129E-12 

.1579E5 

.1565E5 

.5684E1 

.2703E1 

.5189E-9 

.2569E-8 

-.3232E-13 

.7908E-12 

.3179E5 

.3189E5 

.5172E1 

.7097E1 

.6723E-9 
. 5541E-8 

-.4248E-13 

-.9075E-12 

.3667E5 

.3699E5 

.6294E0 

.1031E2 

.8136E-9 

.1093E-7 

-.5170E-13 

-.2068E-11 

.4909E5 

.4955E5 

“.3429E1 

.1091E2 

.9844E-9 

.1601E-7 

-.6320E-13 

-.3088E-11 

.6543E5 

.6608E5 

-.9039E1 

.1139E2 
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A 

B 

C 

D 

E 

F 

6 

c fi H, 

H 

.8312E1 

• 1640E-1 

-.6416E-5 

•1118E-8 

-.7200E-13 

.7660E5 

-.1357E2 

O P 

L 

.2926E1 

.4064E-1 

-.3886E-4 

.1907E-7 

-.3666E-11 

.7738E5 

.1117E2 

CH. 

4 

H 

L 

•1180E1 

.4249E1 

.1095E-1 

-.6912E-2 

-.4062E-5 

.3160E-4 

.7137E-9 

-.2971E-7 

-.4749E-13 

.9510E-11 

-.9855E4 

.1018E5 

♦1250E2 

-.9175EO 

C 2 H 4 

H 

.3502E1 

.1159E-1 

-.4474E-5 

.7945E-9 

-.5323E-13 

.4543E4 

.2466E1 

L 

.1120E1 

.1390E-1 

.2656E-5 

-.1156E-7 

.5238E-11 

.5332E4 

.1583E2 

_ „ -1 

H 

.4247E1 

.1363E-1 

-.5114E-5 

.8668E-9 

-.5465E-13 

. 2046E5 

.1760E1 

3 4 

L 

.2745E1 

.1792E-1 

-.7243E-5 

-.7208E-10 

.5918E-12 

.2074E5 

.9139E1 

C 3 H 4 "’ 2 

H 

.6126E1 

.1306E-1 

-.5210E-5 

.9194E-9 

-.5965E-13 

.2072E5 

-.9286E1 

3 4 

L 

.2496E1 

.1839E-1 

-.6755E-5 

-.8296E-9 

.8053E-12 

.2159E5 

•.9894E1 

C 4 H A*’ 1 

H 

.5392E1 

.1576E-1 

-.6028E-5 

.1035E-8 

-.6590E-13 

.3484E5 

-.1649E1 

4 4 

L 

.2231E1 

.2772E-1 

-.1885E-4 

.6522E-8 

-.8975E-12 

.3535E5 

.1331E2 

C 4 H 4~ 2 

H 

• 5088E1 

.1614E-1 

-.6192E-5 

.1065E-8 

-.6790E-13 

.3289E5 

-.1819E1 


1 

.2598E1 

•2399E-1 

-.1215E-4 

.2144E-8 

.7127E-13 

.3334E5 

.1028E2 

C R H 4~ 1 

H 

.7931E1 

.1635E-1 

-.6293E-5 

.1086E-8 

-.6935E-13 

.4871E5 

-.1361E2 

P 4 

-2 

L 

.2468E1 

.4229E-1 

-.4289E-4 

.2225E-7 

.4450E-11 

.4947E5 

•1121E2 

Cj-H. 

H 

.6560E1 

.1792E-1 

-.6963E-5 

.1208E-8 

-.7750E-13 

.5111E5 

-.6448E1 

P 4 

L 

• 2010E1 

.3603E-1 

-.2778E-4 

.1096E-7 

-.1733E-11 

.5183E5 

.1491E2 

c 5 h 4 ’ 3 

H 

.6258E1 

.1823E-1 

-.7078E-5 

.1227E-8 

-.7870E-13 

.4816E5 

-.1868E1 


L 

.2211E1 

•3393E-1 

-.2470E-4 

.9332E-8 

-.1438E-11 

. 4881E5 

.1722E2 

C 6 H a" 1 

H 

.7080E1 

.1962E-1 

-.7668E-5 

.1336E-8 

-.8589E-13 

.6279E5 

-.1179E2 

o 4 

L 

.2522E1 

.4236E-1 

-.3545E-4 

.1536E-7 

-.2672E-11 

.6363E5 

.1369E2 

-2 

C fi H, 

H 

.8014E1 

.1965E-1 

-.7685E-5 

.1339E-8 

-.8610E-13 

.6326E5 

-.1236E2 

d 4 

L 

.3073E1 

• 3951E-1 

-.3103E-4 

.1269E-7 

-.2109E-11 

.6403E5 

. 1080E2 
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A 

B 

C 

D 

E 

P 

c 6 h 4 "" 3 

H 

.5152EI 

.2280E-1 

-.8996E-5 

.1577E-8 

-.1018E-12 

. 5880E5 

o 4 

L 

.8791EO 

.3417E-1 

-.1292E-4 

-.2030E-8 

.1584E-11 

.5961E5 

C,H 

H 

.4163E1 

.1670E-1 

-.6328E-5 

.1079E-8 

-.6880E-13 

.1439E5 

3 5 

I 

.3158E1 

.15HE-1 

.4407E-5 

-.9188E-8 

.2697E-11 

.1468E5 

0 .H,-"" 1 

H 

.4650E1 

.1925E-1 

-.7335E-5 

.1255E-8 

-.7970E-13 

.3071E5 

4 5 

I 

. 3082E1 

. 2100E-1 

-.2637E-5 

-.4696E-8 

.1634E-11 

.3107E5 

_ „ -2 
O.He 

H 

. 4710E1 

.1999E-1 

-.7824E-5 

.1364E-8 

-.8775E-13 

.3024E5 

4 5 

L 

.1593E1 

.2699E-1 

-.7206E-5 

4060E~8 

.1839E-11 

.3086E5 

C 0 H* 

H 

.1430E1 

.1889E-1 

-.7044E-5 

.1187E-8 

-.7445E-13 

-.1143E5 

2 o 

L 

.1430E1 

.1889E-1 

-.7044E-5 

.1187E-8 

-.7445E-13 

-.1143E5 


H 

.2530E1 

. 2103E-1 

-.7953E-5 

.1354E-8 

-.8565E-13 

.8170E3 

3 6 

L 

# 301 3E1 

.1439E-1 

.1195E-4 

-.1763E-7 

.5647E-11 

.8268E3 

_2 

C,Hr 

H 

.2927E1 

• 2041E-1 

-.7676E-5 

.9036E-9 

-.8230E-13 

.5054E4 

3 6 

L 

.1745E1 

.1757E-1 

.7810E-5 

-.1324E-7 

. 3826E-11 

. 5422E4 

G a h ^~ 1 

H 

.4007E1 

.2255E-1 

-.8552E-5 . 

.1458E-8 

-.9235E-13 

.1546E5 

4 6 

1 

.3764E1 

.1845E-1 

.6784E-5 

-.1369E-7 

. 4487E-11 

.1560E5 

-2 

c a H/- 

H 

.3971E1 

.2259E-1 

.8575E-5 

.1464E-8 

-.9285E-13 

.1774E5 

4 6 

L 

.2437E1 

.2913E-1 

-.1298E-4 

.6525E-9 

.8151E-12 

.1794E5 

-3 

G.Hx- 

H 

.3258E1 

.2349E-1 

-.8975E-5 

.1539E-8 

-.9780E-13 

.1127E5 

4 6 

L 

.1310E1 

.3537E-1 

-.2098E-4 

.4492E-8 

. 2204E-12 

.1142E5 

C 4 H g” 4 

H 

. 2782E1 

.2591E-1 

-.5997E-5 

-.4794E-8 

.2247E-11 

.1757E5 

4 6 

L 

. 3991E1 

.2286E-1 

-.8745E-5 

.1501E-8 

-.9550E-13 

.1736E5 

C-H , 

H 

.3601E1 

.2668E-1 

-.1036E-4 

.1799E-8 

-.1155E-12 

.8326E4 

P D 

L 

.8735 EO 

.2770E-1 

•4256E-5 

-.1439E-7 

.4465E-11 

.8994E4 


/ 


G 

-.8328E0 

.2033E2 

.7926E1 

.1374E2 

. 3784E1 
•1203E2 

. 9718E0 
.1666E2 

.1401E2 

.1401E2 

.1171E2 

.1022E2 

. 6002E1 
.1302E2 

* 4838E1 
.6898E1 

.5946E1 

•1293E2 

.8230E1 

.1629E2 

.1191E2 
. 6002E1 

.4317E1 

.1904E2 
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A 

B 

C 

D 

E 

F 

G 

C 6 H 6 

H 

.4619E1 

. 2881E-1 

-.1124E-4 

.1957E-8 

-.1257E-12 

.7391E4 

-.1789E1 

O D 

L 

.3511EO 

.3754E-1 

-.7947E-5 

-.7509E-8 

. 3038E-11 

.8264E4 

.1986E2 

°3 H 8 

H 

.1291E1 

.2775E-1 

-.1047E-4 

.1780E-8 

-.1124E-12 

-.1407E5 

.1714E2 

I 

.2055E1 

.2528E-1 

-.8879E-8 

-.8879E-8 

.3198E-11 

-.1425E5 

.1318E2 

C 4 H 8 _1 

H 

.2473E1 

. 2980E-1 

-.1134E-4 

.1940E-8 

-.1231E-12 

-.2852E4 

.1359E2 

L 

.3228E1 

.1948E-1 

.1816E-4 

-.2582E-7 

.8205E-11 

2828E4 

.1131E2 

0 4 H s' 2 

H 

.2293E1 

.3011E-1 

-.1149E-4 

.1971E-8 

-.1252E-12 

-.1973E4 

.1510E2 

I 

.2773E1 

.2733E-1 

.1802E-5 

-.1306E-7 

.4737E-11 

-.2083E4 

.1274E2 

°4 H 8 ' 3 

H 

.2648E1 

.2963E-1 

-.1127E-4 

.1929E-8 

-.1224E-12 

-.4064E4 

.1182E2 

L 

.2332E1 

.3207E-1 

-.9355E-5 

-.3009E-8 

.1738E-11 

-.4086E4 

.1285E2 

°4 H 8~ 4 

H 

.2647E1 

.2959E-1 

-.1125E-4 

.1923E-8 

-.1219E-12 

-.3370E4 

.1219E2 

I 

.3218E1 

.2521E-1 

.3948E-5 

-.1345E-7 

.4555E-11 

-.3452E4 

.9706E1 

0 4V 5 

H 

.3216E1 

.2940E-1 

-.1127E-4 

.1939E-8 

-.1235E-12 

.1076E4 

•4977E1 

L 

.1990E0 

.3516E-1 

-.9240E-5 

-.3076E-8 

.1213E-11 

.1711E4 

* 2040E2 

°7 H 8 

L 

-.5417E1 

.7735E-1 

-.5841E-4 

.2372E-7 

-.3986E-11 

-.1258E4 

.4924E2 

L 

-.5417EL 

.7735E-1 

-.5841E-4 

.2372E-7 

-.3986E-11 

-.1258E4 

.4924E2 

°4 H 1^ 

H 

.4285E1 

.2841E-1 

-.1161E-4 

. 2081E-8 

-.1363E-12 

-.1765E5 

.4799E1 

L 

.3190E1 

.2995E-1 

.5455E-5 

-.1707E-7 

. 5811E-11 

-.1751E5 

.9987E1 


H 

.4285E1 

. 2841E-1 

-.1161E-4 

.2081E-8 

-.136333-12 

-.1799E5 

.4816EI 

L 

.1879E2 

-.1312EO 

.4290E-3 

-.4265E-6 

.1373E-9 

-.1833E5 

-.4601E2 

C 6 H 6° 

L 

-.3931E1 

.6938E-1 

-.5210E-4 

.1249E-7 

.2091E-11 

-.1330E5 

.4187E2 

D D 

L 

-.3931E1 

.6938E-1 

-.5210E-4 

.1249E-7 

. 2091E-11 

-.1330E5 

.4187E2 

CN 

H 

.3602E1 

.3408E-3 

.9716E-7 

-.1582E-10 

-.4142E-15 

.4731E5 

.3552E1 


L 

.3852E1 

-.2763E-2 

.6857E-5 

-.5413E-8 

.1490E-11 

.4741E5 

.2971E1 

C ? N ? 

H 

.6502E1 

.4053E-2 

-.1664E-5 

.3094E-9 

-.2148E-13 

.3490E5 

-.9441E1 

Z Z 

I 

.3402E1 

.1775E-1 

-.2686E-4 

.2196E-7 

-.7087E-11 

.3555E5 

. 5412E1 
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A 

B 

C 

D 

E 

F 

G 

CO 

H 

.2951E1 

.1552E-2 

-.6191E-6 

.1135E-9 

-.7788E-14 

-.1423E5 

.6531E1 


L 

.3787E1 

-.2171E-2 

.5075E-5 

-.3473E-8 

.7721E-12 

-.1436E5 

.2633E1 

CO- 

H 

.4412E1 

.3192E-2 

-.1298E-5 

.2415E-9 

-.1674E-13 

-.4894E5 

-.7287EO 

d 

L 

.2170E1 

.1037E-1 

-.1073E-4 

.6345E-8 

-.1628E-11 

-•4835E5 

.1066E2 

H 

H 

.2500E1 

• OOOOEO 

.OOOOEO 

.OOOOEO 

.OOOOEO 

.2547E5 

-. 46 OOEO 


L 

.2500E1 

. OOOOEO 

.OOOOEO 

.OOOOEO 

.OOOOEO 

.2547E5 

-. 46 OOEO 

HCN 

H 

.3653E1 

•3443E-2 

-.1258E-5 

.2169E-9 

-.1430E-13 

.1442E5 

.2372E1 


L 

.2168E1 

.1072E-1 

-.1508E-4 

.1193E-7 

-.3700E-11 

.1468E5 

.9281E1 

HCO 

H 

.3270E1 

.3519E-2 

-.1377E-5 

.2473E-9 

-.1673E-13 

-.2782E4 

.7304E1 


L 

.3864E1 

-.5370E-3 

.6903E-5 

-.6645E-8 

. 2057E-11 

~.2799E4 

.4897E1 

H P 

H 

.3043E1 

. 6118E-3 

-.7399E-8 

-.2030E-10 

.2459E-14 

-.8549E3 

-.1648E1 

i 

L 

.2846E1 

.41932E-2 

-.9611E-5 

.9512E-8 

-.3309E-11 

-.9672E3 

-.1411E1 

H 0 0 

H 

, 2670E1 

.3031E-2 

-.8535E-6 

.1179E-9 

-.6197E-14 

.2988E5 

. 688 3E1 

c 

L 

.4156E1 

-.1724E-2 

.5698E-5 

-.4593E-8 

.1423E-11 

-.3028E5 

-.6861EO 

N 

H 

.2442E1 

.1227E-3 

-.8499E-7 

. . 2140E-10 

-.1251E-14 

.5614E5 

•4492E1 


L 

.2514E1 

-.1124E-3 

.2964E-6 

-.3246E-9 

.1259E-12 

.5612E5 

.4119E1 

NH 

H 

.2727E1 

.1419E-2 

-.4582E-6 

.7555E-10 

-.4617B-14 

.3892E5 

• 6044E1 


L 

.3454E1 

.5280E-3 

-.1972E-5 

.2957E-8 

-.1208E-11 

• 3867E5 

. 2010E1 

NH, 

H 

.2149E1 

.6492E-2 

-.2269E-5 

. 3739E-9 

-.2361E-13 

-.6402E4 

.9238E1 

3 

L 

.3771E1 

-.4862E-3 

.9874E-5 

-.9567E-8 

.3131E-11 

-.6728E4 

.1465E1 

NO 

H 

.3152E1 

.1406E-2 

-.5707E-6 

.1062E-9 

-.7372E-14 

.9852E4 

.6944E1 


1 

.4146E1 

-.4119E-2 

.9692E-5 

-.7863E-8 

.2230E-11 

.9744E4 

.2569E1 

NO- 

H 

.4612E1 

.2638E-2 

-.1094E-5 

. 2081E-9 

-.1465E-13 

.2340E4 

.1367E1 

c 

L 

.3434E1 

.2223E-2 

.6714E-5 

-.9742E-8 

.3721E-11 

.2864E4 

. 8408E1 
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A 

B 

C 

D 

E 

F 

a 

Nj, 

H 

.2854E1 

.1597E-2 

-.6256E-6 

.1131E-9 

-.7690E-14 

-.8901E3 

.6390E1 

c. 

L 

. 3691E1 

-.1333E-2 

.2650E-5 

-.9769E-9 

-.9977E-13 

-.1062E4 

.2287E1 

N„0 

H 

.4626E1 

.3021E-2 

-.1215E-5 

.2285E-9 

-.1585E-13 

.8135E4 

-.1146E1 

2 

L 

.2382E1 

.1035E-1 

-.1116E-4 

.6958E-8 

-.1878E-11 

.8723E4 

.1022E2 

N 2°4 

H 

.1042E1 

.6036E-2 

-.2583E-5 

.4928E-9 

-.3478E-13 

-.2741E4 

-.2582E2 

L 

.3165E1 

.2719E-1 

-.2533E-4 

.1099E-7 

-.1660E-11 

-.7673E3 

.1147E2 

0 

H 

.2537E1 

-.1842E-4 

-.8801E-8 

.5964E-11 

-.5574E-15 

.2923E5 

.4946E1 


L 

. 3021E1 

-.2173E-2 

.3754E-5 

-.2994E-8 

.9077E-12 

.2913E5 

.2646E1 

OH 

H 

. 2889E1 

.9983E-3 

-.2188E-6 

.1980E-10 

-.3845E-13 

• 3881E4 

.5559E1 


L 

.3823E1 

-.1H8E-2 

.1246E-5 

2104E-9 

-.5255E-13 

.3585E4 

.5825EO 

°9 

H 

.3597E1 

.7814E-3 

-.2238E-6 

.4249E-10 

-.3346E-14 

-.1192E4 

.3749E1 

2 

L 

.3719E1 

-.2516E-2 

.8583E-5 

-.8299E-8 

.2708E-11 

-.1057E4 

. 3908E1 
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At the end of the appendix a general purpose program is 
presented that calculates the seven constants, "a" through 
"g", when the heat capacity at different temperature inter- 
vals, the heat of formation, and entropy at 298°K are 
supplied. 

The first card specifies the order of the polynomial 
of the heat capacity and the number of data points. From 
the second card on, the heat capacity data with the cor- 
responding temperature in °K are specified. The last card 
gives the temperature range over which the value of the 
heat capacity should be calculated and PRINTED out, and 
the heat of formation and entropy at 298°K which are 
necessary in the evaluation of the constants. 

Gas Phase Physical Properties : The gas phase physical 

properties required for the solution of the equations of 
change are the thermal conductivity and the viscocity. The 
physical property equations are those presented by Sh rwood 
and Reid (3) . 

The thermal conductivity of a pure gas is calculated 
using the equation shown below: 

-5 - 

k = 2.66 13x10 3 (M ) (C + 4.47) (C-8) 

g i w i v i 


For an ideal gas the heat capacity at constant volume 
is Cp^ -R and the collision diameter, a , and collision 
integral, , are tabulated for individual gas components 
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in Table 02 and Table 03 respectively. The thermal conduc- 
tivity of the gas mixture is calculated as: 



(09) 


The viscocity of a pure gas is given by a similar 
equation : 


y = (2.6693xl0" 3 ) * (K. T) 1/2 (OlO) 

9i 8 

a 2 fl v 

The viscocity of the gas mixture is calculated by the 
equation approximating the Chapman-Enskong Theory: 


y = 2 yj {1+2 ( n-i/n,)}" 1 (oil) 

i=l X j=l 1 J 1 

j*L 

where the parameter, , is calculated by Equation (012) 

below: 

* ±j - U+( y i/ y-j) 1/2 (M Wj /M Wi ) 1/4 > 2 (Vsd+M^/^) 1 / 2 }- 1 

( 012 ) 

Thermophysical Properties of the Virgin Material and 
Char : The thermophysical properties used were those 

measured by Southern Research Institute (4). Figure C-l 
shows the thermal conductivity plot with temperature for 
40% nylon, 25% phenolic resin and 35% phenolic microballoon 
virgin composite. As is shown in the plot the thermal con- 
ductivity variation- in the temperature range 200°F to 800°F 





(a) 

Table C-2 Lennard-Jones Potentials' ' 
and Enthalpy of Formation^) for the Compounds 

Component 

Molecular Collision 

Potential Parameter t 

Enthalpy of 

Name 

Weight 

, M . Diameter, a 

^ A° 

Boltzmann Constant 
E°/k, °K 

Formation (290 °K) 
cal/ gram mole 

ch 4 

16 

3.822 

136.5 

-17889.0 

C 2 H 6 

30 

4.418 

230.0 

-20316.6 

C 2«4 

28 

4.232 

205.0 

12496.0 

c 2 h 2 

26 

4.221 

185.0 

54194.0 

C 6 H 6 

78 

5.270 

440.0 

19778.8 

C 6 H 6° 

94 

5.000 

400.0 

-23500.0 

CO 2 

44 

3.966 

190.0 

-94052.0 

CO 

28 

3.590 

110.0 

-26416.0 

»2 

2 

2.986 

33.3 

0.0 

h 2 ° 

18 

2.649 

356.0 

-57797.9 

HCN 

27 

3.630 

569.1 

31100.0 

NH 

17 

3.432 

312.0 

-11040.0 

“2 

28 

3.681 

91.5 

0.0 

°2 

32 

3.433 

113.0 

0.0 

(a) Reid, 

Robert C. 

and Thomas K. Sherwood, 

The Properties of Gases 

and Liquids, 2nd 

ed . , 

New York: 

McGraw-Hill, pp . 632-633 

. (1966). 


(b) Perry 

, John H. , 

ed. , Chemical Engineers’ 

Handbook, 3rd ,ed. , New 

York: McGraw-Hill, 

1950, 

pp. 236-243. 
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Table C-3 Values of the Collision Integral 
Based on Lennard-Jones Potential for Calculating 
Pure Component Conductivity and Viscosity 


kT/E° 

Q 

kT/E° 

Q 



V 


V 

0.30 

2.785 

1.30 

1.399 

0.35 

2.628 

1.50 

1.314 


0.40 

2.492 

1.70 

1.248 

0.45 

2.368 

1.90 

1.197 

0.50 

2.257 

2.2 

1.138 

0.55 

2.156 

2.6 

1.081 

0.60 

2.065 

3.2 

1.022 

0.65 

1.982 

4.0 

0.9700 

0.70 

1.908 

5.0 

0.9269 

0.75 

1.841 

7.0 

0.8727 

0.80 

1.780 

10.0 

0.8242 

0.85 

1.725 

20.0 

0.7432 

0.90 

1.675 

40.0 

0.6718 

0.95 

1.587 

70.0 

0.6194 

1.00 

1.629 

100.0 

0.5882 

1.10 

1.514 

200.0 

0.5320 

1.20 

1.452 

. 

400.0 

0.4811 

Reid, Robert C. and 

Thomas K. Sherwood, The Properties of Gases 

and Liquids, 2nd ed.. 

New York: McGraw-Hill, 1966, p. 399. 




Temperature P 


Figure C-l 


Thermal Conductivity of Virgin Nylon Phenolic 
Resin Composite (4). 
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is small. No further measurements were made beyond 800°F as 
the degradation of the virgin material made the measurements 
impractical. However, for the purpose of the computer 
calculations these measurements were further extrapolated. 
Figure C-2 shows the thermal conductivity for the low densi- 
ty phenolic nylon char. The thermal conductivity data was 
fitted empirically by Engelke, et . al . (4) and shown to be: 

k e = 11.57 x 10" 5 + 5.3 x 10" 15 T 3 (C-13) 

for the temperature range between 800° and 5000°F. The 

unLts of k are BTU-ft/sec/ft 2 /°F. 

© 

In figure C-3 the heat capacity plot for the virgin 
material with temperature is shown. A least square fit of 
this data was performed by Engelke et. al. (4) and was 
shown to be: 

C - 0.15 + 4.3 x 10" 4 .T-1114 T~ 2 (C-14) 

P v 

where T is the temperature in degrees Rankin. 

The heat capacity data for the char was that of Wilson 
(5) and is shown in Figure C-4. 

Thermochemical Generation Program 

Most of the thermodynamic data available today is 
usually reported in Table form; be it free energy data, 
enthalpy data, heat capacity data, entropy, etc. The major 
sources of such thermodynamic data are reported at the end 
of the Chapter (3 ,2,6,8) . For an extensive review of other 


Temperature K 


Figure C-2. Thermal Conductivity of Low Density Phenolic 
Nylon Char (4)* 
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thermodynamic data sources see reference (7) . 

The thermodynamic data required in the development of 
both ablating analyses was voluminous. Therefore, to read- 
in the data in tabular form was ruled out. This would have 
implied more computer core, and tedious table look up 
during the computation, which in itself consumes precious 
computing time. The best alternative, therefore, was to 
preprocess all the thermodynamic data and reduce them to 
convenient polynomial forms. 

The polynomial forms used for the heat capacity, en- 
thalpy, entropy and free energy data were those published 
by NASA (1) . This format was selected for its convenience 
and ease of programming. It constituted our initial data 
base on which we built as our work progressed. 

Unfortunately, none of the other major sources of 
thermodynamic data had reduced them to the convenient poly- 
nomial forms of NASA (1) . And in these cases where they 

t ■ 

did (2), the polynomial forms were incompatible with NASA's. 
It was therfore necessary to develop a Thermochemical Gene- 
ration Program (TGP) to develop a uniform data base. 

The Thermochemical Generation Program (TGP) is a 
double precision routine that requires heat capacity vs. 
temperature data, heat of formation at 298°K, and the 
standard molal entropy at 298°K. With this information 
TGP proceeds to fit a fourth order polynomial to the heat 
capacity data as shown in Equation C-l. Once the five 
constants (a through e) are calculated, the program proceeds 
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to compute the constant f using Equation (C-3) and the known 
value of the heat of formation at 298°K. Finally, the 
program calculates the constant g using Equation (C-5) and 
the value for the entropy at 298°K. With these seven cons- 
tants the free energy function could, therefore, be calcula- 
ted with the use of Equation (C-7) . A FORTRAN listing of 
TGP is presented at the end of the chapter. It is identi- 
fied by the symbol API44. This was done in honor of API 
project 44, which was the first concerted effort to develop 
a consistant set of thermodynamic data for hydrocarbons (8) . 



n o r> r> jooooonnnnoonooooo 
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TABLE C-4. Listing of Thermochemical Generation Program 

API 

C API 

DOUBLE PRECISION C{7) API 

DIMENSION A ( 7) » API 7 1 API 

THIS PROGRAM FITS A POLYNOMIAL OF THE FORM A+BT+. . . + ET C 5 ) TO HEAT API 
CAPACITY DATA USING A LEAST SQUARES DOUBLE PRECISION SUBROUTINE. API 
WITH THESE CONSTANTS IT EVALUATES THE TWO CONSTANTS OF INTEGRAT IONAP I 
API 6) AND APf 7 ) « THAT ARE NECESSARY IN THE EVALUATION OF THE FREE API 
ENERY FUNCTION FO/RT. THE FORMAT USED FOR THE FREE ENERGY CALCULA- API 
TION IS GIVEN IN NASA SP-3001 — THERMOOYNAMIC PROPERTIES TO 6000 K API 
FOR 210 SUBSTANCES INVOLVING THE FIRST 18 ELEMENTS— BY B. J.MCBR IDEAPI 


1963 API 

API 

DELH=HEAT OF FORMATION AT 298 OK API 

S=AB SOLUTE ENTROPY AT 298 OK API 

RR=1.987(UNI VERSAL GAS CONSTANTI APT 

TZER0=29B. 15IBASE TEMPERATURE) API 

FORT=FREE ENERGY API 

CP=HEAT CAPACITY API 

API 

=1.987 API 

TZER0=298. 1 *5 APT 

TZEROl = T7.ER0 API 

TZER02=TZFRO*TZER01 API 

T7FR03=T7ER02 ♦TZERO APT 

TZFR04=TZER03*TZER0 API 

TZFR05=TZER04*TZER0 API 

API 

N=TOT AL NUMBER OF CONSTANTS FOR CP POLYNOMIAL API 

API 

CALL THE LEAST SQUARES SUBROUTINE API 

C. AP I 

100 CALL LSQR(CtN) API 

C APT 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 
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on 1 I = 1 » N API 

Apm=cm api 

PRINT 101 API 

101 F0RMATI1H0) API 

PRINT 102,APII) ,CI II ,1 API 

102 F0RMATUX,'APtn = ',E20.8,3X,'HCm = ', D 20 . 0 , 16 ) API 

CONTINUE API 

READ 2, TINT TL ,TF INAL,TINC,DELH,S, SNAME API 

2 FORMAT ( 5E 10. 6, 6X, A4) API 

PRINT 3, SNAME API 

3 FORMAT! //IX, 'THE CONSTANTS ARE F0R=',A4//) API 

API 

C( I) = POLYNOMT AL CONSTANT API 

API 

PRINT 4,TINITL,TFINAL,SNAME,DELH API 

4 FORMAT ( //l X ,9HT T NITIAL=,E10.5»3X, *TFI NAL=* E 10* 5 ,3X,'HEAT OF FORMAAPI 

1 T ION OF • ,A4,1X, 'AT 298 0K= • ,E 1 6 . 5// I API 

CALCULATE HEAT CAPACITY API 

T=TINITL API 

5 T1 =T API 

T2=T1 *T API 

T3=T2*T API 

T 4=T3* T API 

CP=AP( 1 l+API 2)*T1+AP|3)*T2+API4J*T3+AP!5) *T4 API 

PRTN T6»CP , T API 

6 FORMAT! IX,'CP=» ,E18.5,3X,'T=* ,E18.5) API 

T= T+ TI NC API 

IF! T.LE.TFINAL) GO TO 5 API 

API 


PROCEED TO CALCULATE THE TWO CONSTANTS OF INTEGRATION API6I-API7) API 

APT 

API 6 )=-! APtl) *TZERO+AP( 2 I *TZER02 /2. ♦ API 31 ♦TZER03/3. ♦AP! 4) *T7FR04/4APT 
1 . + A P ( 5)*TZER05/5« I API 

X= AP ( 6) API 


35 

36 
3T 

38 

39 

40 

41 

42 

43 

44 

45 / 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 
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non 



API 7) =AP< 1 )*ALOG( TZER01+API2) *TZERO+AP( 3 ) *T ZER02/ 2 . ♦ AP I 4 ) *TZ ER03/3AP I 

69 


1 .+AP( 5)*T7ER04/4. 

API 

70 


Xl=AP( 7) 

API 

71 


API 7 l=- X1 + S 

API 

72 


PRINT 7» API 6) ,AP(7» ,S 

API 

73 

7 

FORMAT (//IX, »AP(6)=* ,E15.5,2X, ' API 7 ) = • , E 1 5 . 5 , • S=',E15.51> 

API 

74 


API 6 )=X+DELH 

API 

75 


MM=N + 2 

API 

' 76 


00 8 1=1, MM 

API 

77 

8 

A I I 1 = A Pill /RR 

API 

78 


PRINT 9,1 A( I) ,1=1 ,MM1 

API 

79 

9 

FORM ATI /1X,7E17.7/) 

API 

80 



API 

81 


CALCULATE THE FREE ENERGY 

API 

82 



API 

83 


T=TI NT TL 

API 

84 

10 

T1 = T 

API 

85 


T2=T1*T 

API 

86 


T3=T2*T 

API 

87 


T4=T3*T 

API 

88 


A 2=A (21 

API 

89 


A 1= A ( 1 1 

API 

90 


F ORT= A 1 * 1 1 . -A LOG ( T1 ) -A2*T/2 . - A I 3 ) *T? / 6 , - A I 4 I *T3/ 1 2 .“A I 5 ) * T4/20 . 

API 

91 


l+AI 6)/T -AIT) 

API 

92 


PRINT 11, FORT, T 

API 

93 

11 

FORMAT! IX, 'FORT = ' ,E15.5,» T= • ,F15.5) 

API 

94 


T=T + TINC 

API 

95 


IF( T.LE.TFTNALIGO TO 10 

API 

96 


PRINT 13 

API 

97 

13 

FORMAT! 1HI) 

API 

98 


GO TO 100 

AP I 

99 

12 

STOP 

AP I 

100 


END 

API 

101 
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c 


SUBROUT 1 NF LSORtCC ,M, NUMBER ,Y ,X) 


LSQR 

1 

c 




LSOR 

2 

c 




LSQR 

3 

c 


LEAST SQUARE CURVE FITTING OF ANY OROFR POLYNOMIAL 


LSQR 

A 

c 


OF ORDER EQUAL TO OR LESS THAN 10 


LSQR 

5 

c 




LSQR 

6 

c. 




LSQR 

7 

c 




LSOR 

8 

c 


NUMBER IS THE ACTUAL NUMBER OF X-Y DATA P AI RS . ♦ MAX IMUM 

OF 200 

LSQR 

9 

c 


M IS THE DEGREE OF THE POLYNOMI AL. , MAXI MUM OF 10 


LSQR 

10 

c 


N IS THE NUMBER OF EQUATI ONS 1 =M+1 1 


LSQR 

11 

c 


X» Y IS THE ARRAY FOR THE OATA PAIRS 


LSOR 

12 

c 


A IS THE ARRAY FOR THE SUM, WHICH BECOMF THE COEFFICIENTS 

OF THE 

LSOR 

13 

c 


UNKNOWN IN THE SIMULTANEOUS EQUATIONS. 


LSOR 

1A 

c 


B IS THE ARRAY FOR THE CONSTANT TERMS IN THE SIMULTANEOUS 

EQUATTONLSQR 

15 

c 


C IS THE ARRAY FOP THE UNKNOWNS, WHICH BECOME THE COEFFICIENS IN 

LSQR 

16 

c 


THE POLYNOMIAL. 


LSQR 

17 

c 


P IS THE ARRAY FOR THE POWERS OF THE XI I 1 * FROM l TO ZM . ' 


LSQR 

18 

c 




LSOR 

19 



DOUBLE PRECISION X( 30), Y< 30 ) * A ( 7, 7 ) , B !7 ) , C l 7 ) , P ( 20 ) , TEMP, FACTOR 

,LSOR 

20 


; 

L SUM 


LSOR 

21 



DIMENSION CC13) 


LSQR 

22 


17 

READ 20, NUMBER, M 


LSQR 

23 


20 

FORMAT! 2161 


LSQR 

2A 



DO 11 1=1, NUMBER 


LSQR 

25 



R FAD 10, Y( I ) ,X( I) 


LSOR 

26 

c 


Y(n = i./Yin 


LSQR 

27 


10 

FORMAT! 2D10.0) 


LSOR 

28 


11 

CONTINUE 


LSQR 

29 



MX2=M*2 


LSQR 

30 



DO 13 1=1, MX2 


LSQR 

31 



P ! I 1=0.0 


LSOR 

32 



00 13 J=l, NUMBER 


LSQR 

33 



PQ WE R = I 


LSQR 

3A 
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13 P( I » =P C I > -*- X ( J)**POWER 


DEVELOPING THE COEFFICIENTS AND THE CONSTANT TERMS OF THE NORMAL 
EQUATIONS. 


N=M+ 1 

DO 30 I =1 » N 
DO 30 J=1 « N 
K= I ♦ J-2 
IFCK129, 29,28 

28 A( I, J>=P(K) 

GO TO 30 

29 A( 1,1 ) =NUMBER 

30 CONTINUE 

B( 1 1=0. 

DO 21 J=l, NUMBER 

21 B( 1 ) =B( ll+YU) 

DO 22 1=2, N 

B( I )=0. 

DO 22 J=l, NUMBER 

22 B( I l=B( II + Y(J)*X(J)**I I — It 

PIVOTAL CONDENSATION 
NM1 =N-1 

DO 300 K= 1 , NM1 

KP 1=K+ 1 

L=K 

DO 9QQ I = KP1 , N 

IF I D A8S ( A( I , K I) -DAB SC AIL, Kill ADO ,400,401 
90(1 L= I 
900 CONTINUE 


LSQR 

35 

LSQR 

36 

LSOR 

37 

LSQR 

38 

LSQR 

39 

LSOR 

90 

LSOR 

91 

LSQR' 

92 

LSQR 

93 

LSQR 

99 

LSQR 

95 

LSQR 

96 

LSQR 

97 

LSQR 

98 

LSOR 

99 

LSQR 

50 

LSOR 

51 

LSQR 

52 

LSOR 

53 

LSOR 

59 

LSQR 

55 

LSOR 

56 

LSQR 

57 

LSQR 

58 

LSQR 

59 

LSQR 

60 

LSQR 

61 

LSOR 

62 

LSQR 

63 

LSQR 

69 

LSQR 

65 

LSQR 

66 

LSQR 

67 

LSOR 

68 
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IF(L-K) 500,500,405 
405 00 410 J=K,N 
TEMP=A(K,J) 

A { K * J ) = A ( L » J ) 

410 A(L,J)=TEMP 
TEMP=B ( K ) 

B(K|=B(U 

B!L)=TEMP 

ELIMINATION, BACK SOLUTION, ANO PRINTING RESULTS 

500 00 300 I=KP1,N 

FACTOR =A( I,K)/A(K,K) 

A( I ,K 1=0. 0 
DO 301 J = KP1 » N 

301 A( I , J ) = A ( 1, J I -FAC TOR ♦A ! K * J ) 

300 B( I >=B( I )-FACTOR*BCK) 

C(N)=B(NI/A!N,N) ? 

I =NM1 

710 IP1=I+1 
SUM^O.O 

DO 700 J= I PI ,N 
700 SUM= SUM+A! I , J ) *C ( J) 

cm=(B(n-suMi/AU,n 

1=1-1 

IF( 11800,800, 710 
800 DO 900 I = 1 , N 
CCIIKIII 

900 PRINT 901, T,C( II 

901 FORMAT! IX, 16, 5X, 017. 8) 

PRINT 9143 

9143 FORMAT! //T46, 'LINEAR INTERPOLATION' , //^T5, ' ORS ERV AT TON * , 
1 T27, 'CALCULATION', T49, 'RESIDUAL', T67, 'READING NO. '///I 
DO 905 1=1, NUMBER 


LSQR 

69 

LSQR 

70 

LSQR 

71 

LSQR 

72 

LSQR 

73 

LSQR 

74 

LSQR 

75 

LSQR' 

76 

LSQR 

77 

LSQR 

78 

LSQR 

79 

LSQR 

80 

LSQR 

81 

LSQR 

82 

LSQR 

83 

LSQR 

84 

LSQR 

85 

LSQR 

86 

LSQR 

87 

LSQR 

88 

LSQR 

89 

LSQR 

90 

LSQR 

91 

LSQR 

92 

LSQR 

93 

LSQR 

94 

LSQR 

95 

LSQR 

96 

LSQR 

97 

LSQR 

98 

LSQR 

99 

LSQR 

100 

LSQR 

101 

LSQR 

102 
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c 

XKK=C ( n+C( 2>*X(I ) 4-C« 3 > ♦Xf I)**2 

LSOR 

103 


XKK=C< lt+C(2)*X< I ) 

LSQR 

104 


RESIO = YU>- XKK 

LSOR 

105 

c 

PRINT 904,XK»X(I) 

LSQR 

106 


XK= XKK 

LSOR 

107 


YY = YU) 

LSOR 

108 


XX = X( I ) 

LSOR 

109 


PRINT 904 » YY» XK » RE SI 0 ♦ XX 

LSOR 

110 

904 

F0RMAT(4E20.6J 

LSOR 

111 

905 

CONTINUE 

LSOR 

1 12 

902 

FORMAT! 1H1) 

LSOR 

113 


RETURN 

LSOR 

114 


END 

LSOR 

115 
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INPUT FORMAT FOR T G P 


CARD 1 : FORMAT (216) 

NUMBER = Number of heat capacity 
data points. 

M = Order of polynomial fit. 

CARD 2 : FORMAT (2D10.1) 

X (I) * Heat Capacity data 
(cal/gm-mole-°K) . 

Y (I) = Temperature (°K) . 

CARD 3 : FORMAT (5E10.6, 6x, A4) 

TINITL * Initial temperature of 
fit. 

TFINAL =* Final temperature of fit 

TINC = Increment at which data is 
to be printed. 

DELH = Heat of formation of the 
species at 298°K. 

S = Entropy at 298°K. 

SNAME ~ Species name. 


COLUMNS 

1-6 

7-12 


1-10 

11-20 


1-10 

11-20 

21-30 

31-40 

41-50 

55-60 
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APPENDIX D 

ISOTHERMAL ANALYSIS PROGRAM 

This program was developed to study hundreds of 
possible chemical reactions that could occur in the C-H-O-N 
system. With this program we were able to determine if 
reactions were important between the temperature range of 
500°K to 3500°K. 

The procedure was to use stochiometric amounts of 
reactants and calculate the conversion at a given tempera- 
ture through a char one quarter of an inch thick. This 
procedure was repeated at higher temperatures and the be- 
havior of the reaction was recorded for later analysis. 

Those reactions for which the conversions at 3500°K were 
less than 5 percent were eliminated. It was felt that since 
the actual char would have an average temperature much less 
than 3500°K, it was a conservative criteria to select the 
reaction on this basis. 

As it turned out many reactions which had a conversion 
greater than 5 percent were later eliminated since many of 
the reactants were present in trace amounts, and therefore, 
even if their conversion at 3500°K was 100 percent, their 
contribution to heat absorption was considered negligible. 
These decisions were based on the composition of gases 
entering the char. How these compositions were estimated 
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is explained in Appendix F. 

It should be pointed out that the isothermal analysis 
approach used in this research was different from that used 
by April (1) . April only considered the reactions to be 
irreversible. In this research, reverse reaction rate 
constants were used. The reverse reaction rate constants 
were computed from the known equilibrium constant calculated 
from the chemical equilibrium program. Table D-l lists the 
isothermal analysis program. 



non oo oo no on oo onooon 


TABLE D— 1 . Listing of the Isothermal Analysis Program 

CALCULATION OF THE CONVERSION FOR CHEMICAL REACTIONS 
THAT POSSIBLY OCCUR IN THE DECOMPOSITION ZONE OF 
CHARRING ABLATORS. THE RESULTS COMPUTED ARE FOR THE 
ISOTHERMAL FLOW IN THE CHAR ZONE AT TEMPERATURES 
FROM 500 OK— 3 500 OK 

DIMENSION EQNI18I 

DOUBLE PRECISION R22 ,R33 , Pil , P22, P33 , FRi , FR2 , FR3, FP1, FP2, FP3, 

A ZtDELZ.RA »FKK«RKK ,FKKK,RKKK ,CR1 * CR2 ,CR3, CPI, CP2, CP3, HH.RADELZ* 

B FT,R44,R55,R66,P44,P55,P66 ,HMIN,HI ,ZZ,ZINC 
DOUBLE PRECISION TTT 

REAO THE EQUATION Rl+R2+R3=Pl+P2+P3 

1111 READ729,IEQN!I> ,1=1,18) 

729 FORMAT ( 1 8A4I 

READ THE STOCHI OMETRIC COEFFICIENTS OF THE RATE EQUATION 

1112 READ73C,R1,R2,R3,P1,P2,P3 

READ EXPONENTS ON THE COMPOSITIONS OF THE RATE EQUATION 
READ 730,R4,R5,R6,P4,P5,P6 

730 F ORMAT I 6F4. 0 ) 

REAO THE MOL WGT OF THE COMPONENTS 
READ731»FWR1»FWR2»F WR3 ,F WP1 , F WP2 , FWP3 

731 FORMAT ( 6F5. 0 I 

READ THE INITIAL COMPOSITION OF THE REACTANTS IN MOLE FRACTION 
READ 5, XR1, XR2,XR3,XP1 ,XP2,XP3 
5 FORMAT I 6E 10.0 ) 

READ THE COEFFICIENTS OF THE FORWARD REACTION RATE CONSTANT 
UNITS OF AF ARE IN CUBIC-CM,GM-MOLES AND SEC 


I SOT 

1 

I SOT 

2 

I SOT 

3 

I SOT 

4 

I SOT 

5 

I SOT 

6 

! SOT 

7 

I SOT 

8 

I SOT 

9 

I SOT 

10 

ISOT 

11 

I SOT 

12 

ISOT 

13 

ISOT 

14 

ISOT 

15 

ISOT 

16 

ISOT 

17 

ISOT 

18 

ISOT 

19 

ISOT 

20 

ISOT 

21 

ISOT 

22 

ISOT 

23 

ISOT 

24 

ISOT 

25 

ISOT 

26 

ISOT 

27 

ISOT 

28 

ISOT 

29 

ISOT 

30 

ISOT 

31 

ISOT 

32 

ISOT 

33 

ISOT 

34 
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no no 


■ 733 
C 

734 

735 
C 

828 

829 

830 
C 

831 
8311 


UNITS OF AEF ARE IN KCAL PER GM-MOLE 



I SOT 

35 

REA0733,AF,SF,AEF 



I SOT 

36 

FORMAT! E8.0»2F6.0) 



I SOT 

37 




I SOT 

38 

READ ( 5 » 734 I A1,A2 



'I SOT 

39 

FORMAT! 1X,2E14. 71 



I SOT 

40 

READ 73 5 » T IN l T, T I NC ,TF I NAL ,HI ,HMI N 



I SOT 

41 

FORMAT! 3F10. 1*2010.4) 



I SOT 

42 

T=TINIT 



I SOT 

43 


• 


I SOT 

44 

PRINT829*! EQN! I ) ,1 = 1,18) 



1S0T 

45 

FORMAT! 1H1,18A4) 



I SOT 

46 

PRINT 830 



I SOT 

47 

FORMAT! IX , 35HIN I T I AL COMPOSITION ( MOLE 

FRACTION) ) 


I SOT 

48 

PRINT 833,XR1,XR2,XR3,XP1,XP2,XP3 



I SOT 

49 




ISOT 

50 

PRINT 831 



I SOT 

51 

FORMAT ! 1H0, 'FINAL COMPOSITION IMOLE FRACTION) 


ISOT 

52 

1 TEMP FRACTIONAL Z DELZ 

REACTION RATE 

EK" ) 

ISOT 

53 

PRINT 8311 



ISOT 

54 

FORMAT! 1H ,109H R1 R2 R3 

PI P2 

P3 

ISOT 

55 

l (OF ) CONVERSION 

(MOL/CC-SECI 

) 

ISOT 

56 




ISOT 

57 

MASS FLUX OF DECOMPOSITION PRODUCTS, W, 

IN LB/FT2-SEC 


ISOT 

58 

W=0.01 



ISOT 

59 




ISOT 

60 

INITIAL VALUE OF TE MPERATURE , T , I S 500-OK 



ISOT 

61 

R22=R2/Rl 



ISOT 

62 

R 33 = R3/R 1 



ISOT 

63 

Pil=Pl /R1 



ISOT 

64 

P22 = P2/R1 



ISOT 

65 

P33=P3/R1 



ISOT 

66 

ZINC =1.0-3 



ISOT 

67 

R44=R4 



ISOT 

68 
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R 55=R 5 ISOT 

R66=R6 ISOT 

P44=P4 ISOT 

P 55=P5 ISOT 

P66= P6 ISOT 

DELZ=HI ISOT 

C INITIAL VALUE OF THE PRESSURE ,P, IS 1.0 ATMS ISOT 

P=1.0 ISOT 

C GAS CONSTANTS, IN CALORIE S/GMMOLE-OK ISOT 

R= 1.987 ISOT 

ISOT 

CALCULATION OF THE AVERAGE MOL WGT OF THE GAS , FWA ISOT 

ENTERING THE CHAR ZONE ISOT 

FWAR=FWR1*XRH-FWR2*XR2+FWR3*XR3 ISOT 

FWAP=FWP1*XP1+FWP2*XP2+FWP3*XP3 ISOT 

FWA=FWAR*FWAP ISOT 

ISOT 

CALCULATION OF THE MOLAL FLOW RATE OF THE GAS.FTO ISOT 

F TO HAS UNITS OF GMMOLES PER CM2-SEC ISOT 

ACON4=453. 59/929. 0304 ISOT 

F TO= W/F WA *AC0N4 ISOT 

ISOT 

CALCULATION OF MOLAL FLUX OF THE INDIVIDUAL COMPONENTS ISOT 

MOLAL FLUX UNITS ARE GMMOLES PER FT-FT SEC ISOT 

FR10=XR1*FT0 ISOT 

FR2O=XR2*FT0 ISOT 

FR30=XR3*FT0 ISOT 

FP1Q=XP1*F TO ISOT 

F P20 = XP2*F TO ISOT 

FP30=XP3*FT0 ISOT 

ISOT 

CALCULATION OF THF SPACE TIME, ST, IN CUBIC-CM SEC/ GMMOLES ISOT 

ST= ( 0. 25*144,0) / ( F TO^O .06 103 ) ISOT 

C ISOT 


69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 
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C FT HAS UNITS OF GM-M0LES/CM2-SEC 

F T-F TO 

2221 FR1=FR10 
FR2=FR20 
FR3=FR30 
FP 1=FP10 
FP 2=F P20 
FP3=FP30 
ZZ=0. 

Z = 0. 

CALCULATION OF THE COMPOSITION OF THE REACTING MIXTURE 
C/S ARE CONCENTRATIONS IN GMMOLES/CUBIC-CM 
RR= 82 • 054 
TOK= T 

CALCULATION OF RATE CONSTANTS FOR FORWARO AND REVERSE REACTIONS 
RATE CONSTANT UNITS ARE IN CUBIC CMf GMMOLES AND SEC 

FORWARD REACTION RATE CONSTANT, FK 
FK=AF*TOK**(-SF)*EXPU-AEF*10OO.0>/IR*TOKH 
REVERSE REACTION RATE CONSTANT, RK 

EK=EXP< A1+A2/T) 

COEF=P4+P5+ P6— R4-R5— R6 
EKK=EK/( (RR*T)**COEF) 

RK=FK/EKK 

FKK=FK 

RKK=RK 

2222 H=P/(RR*TOK*FT) 

HH=H 

CR 1=FR 1«HH 
CR2=FR2*HH 
. CR 3=FR 3*HH 


I SOT 

103 

ISOT 

104 

I SOT 

105 

ISOT 

106 

ISOT 

107 

ISOT 

108 

ISOT 

109 

ISOT 

1 10 

ISOT 

111 

ISOT 

112 

ISOT 

113 

ISOT 

114 

ISOT 

115 

ISOT 

116 

ISOT 

117 

ISOT 

118 

ISOT 

119 

ISOT 

120 

ISOT 

121 

ISOT 

122 

ISOT 

123 

ISOT 

124 

ISOT 

125 

ISOT 

126 

ISOT 

127 

ISOT 

128 

ISOT 

129 

ISOT 

130 

ISOT 

131 

ISOT 

132 

ISOT 

133 

ISOT 

134 

ISOT 

135 

ISOT 

136 
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C P 1=F P 1 *HH 

CP2=FP2*HH 

CP3=FP3*HH 

FKKK=FKK*CRi**R44 

IF ( R 55 »LE • 0. ) GO TO 520 

FKKK=FKKK*CR2**R55 

IF ( R66 . LE . 0 . ) GO TO 520 

FKKK=FKKK*CR3**R66 

520 RKKK=RKK*CP1**P44 
IFIP55.LE.0.) GO TO 521 
RKKK=RKKK*CP2**P55 
IFIP66.LE.0. ) GO TO 521 
RKKK=RKKK*CP3**P66 

I F C SF.EQ.O. )G0T0521 
TTT=T**(-SF ) 
FKKK=FKKK*TTT 

521 RA=FKKK— RKKK 
IFIRA.LT. 0. )RA=0. 
IF(RA.LE.0.)G0T052ll 


RAOELZ=RA*DELZ 

5210 RADELZ=RA*OELZ 
RATIO=RADELZ/FRi 
IFIRATIO.GT. l.E-7)DELZ=0ELZ/4. 
IFIRATIQ.GT.l .E- 7 IG0T052 10 
IFIRATIO.LT. l.E-ll)DELZ=DELZ*2 
I F < 0ELZ.LE.5.0-7 IG0T05211 
IFIRATIO.LT. 1.E-1DGOTO5210 

5211 IFIOELZ.LT. HMIN)DELZ=HMIN 

I F ( OELZ.GT. l.E-4)DELZ=l .E-4 
RAOELZ=RA*DELZ 
FR 1=FR 1-RADELZ 
FR2=FR2-RAOELZ*R22 


I SOT 137 
ISOT 138 
ISOT 139 
ISOT 140 
ISOT 141 
ISOT 142 
ISOT 143 
ISOT 144 
ISOT 145 
ISOT 146 
ISOT 147 
ISOT 148 
ISOT 149 
ISOT 150 
ISOT 151 
ISOT 152 
ISOT 153 
ISOT 154 
ISOT 155 
ISOT 156 
ISOT 157 
ISOT 158 
ISOT 159 
ISOT 160 
ISOT 161 
ISOT 162 
ISOT 163 
ISOT 164 
ISOT 165 
ISOT 166 
ISOT 167 
ISOT 168 
ISOT 169 
ISOT 170 
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FR3=FR3-RADELZ*R33 

I SOT 

171 


FP1=FP1+RADELZ*P11 

I SOT 

172 


FP2=FP2+RADELZ*P22 

I SOT 

173 


FP3=FP3+RADELZ*P33 

I SOT 

174 


FT=FR1+FR2*FR3+FP1+FP2+FP3 

I SOT 

175 


FTT=FR1*FWR1+FR2*FWR2 + FR3*FWR3«-FP1*FWP1+FP2*FWP2 + FP3*FWP3 

I SOT 

176 


FTT=FTT*2. 048172 

I SOT 

177 


Z=Z +DELZ 

I SOT 

178 


IF(FR1.LE»0»I GOT 052 40 

I SOT 

179 


IFtZZ.GT.Z JG0T02222 

I SOT 

180 


RAA=RA 

ISOT 

181 


FR 1 1=FR 1 

I SOT 

182 


XCA=1.-FR11/FR10 

ISOT 

183 


YR 1=FR 1 /FT 

ISOT 

184 


YR 2= FR 2 /FT 

ISOT 

185 


YR3=FR3/FT 

ISOT 

186 


YP 1=FP 1 /FT 

ISOT 

187 


YP2=FP2/FT 

ISOT 

188 


YP3=FP3/FT 

ISOT 

189 


12-1 

ISOT 

190 


DZZ Z=OEL Z 

ISOT 

191 


PRINT 833, YRl , YR2 , YR3 ,YP1 , YP2 , YP3 ,T , XCA, Z2,0ZZZ,RAA,EK 

ISOT 

192 


PRINT 522,FKKK,RKKK,FTT 

ISOT 

193 

522 

FORMAT (IX' FKKK= *025.16,* RKKK=» 02 5 . 1 6 , • W='F10.T/| 

ISOT 

194 


INC 

ISOT 

195 


IF( RA.LE.O. IGOT05240 

ISOT 

196 


IF ( Z .LT. 0.1001 GO TO 2222 

ISOT 

197 

C 

CALCULATION OF FINAL COMPOSITION (MOLE FRACTION) 

ISOT 

198 

5240 

YR 1=FR 1 /FT 

ISOT 

199 


YR2=FR2/FT 

ISOT 

200 


YR3=FR3/FT 

ISOT 

201 


YP 1=FP 1/FT 

ISOT 

202 


YP2=FP2/FT 

ISOT 

203 


YP 3=FP3/FT 

ISOT 

204 
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nooo ononoo 



RAA=RA 


ISOT 

205 


FR 1 1=FR 1 


l SOT 

206 


12 = 1 


ISOT 

207 


DZZZ=0ELZ 


ISOT 

208 

123 

PRINT 833, YRI,YR2,YR3,YP1 ,YP2 ,YP3 ,T,XCA 

, Z2»0ZZZ,RAA,EK 

ISOT 

209 


PRINT 522»FKKK,P.KKK,FTT 


ISOT 

210 

5220 

CONTINUE 


ISOT 

211 


XCA= 1.-FR11/FR10 


ISOT 

212 

833 

FORMAT! 1HC,6F8.4,F9.1 ,F8.4,2X,4E12.51 


ISOT 

213 




ISOT 

214 


READ NEW DATA IF THE CONVERSION IS 100 

PERCENT 

ISOT 

215 


CONVERSION WILL BE 100 PERCENT FOR ALL 

HIGHER TEMPERATURES 

ISOT 

216 




ISOT 

217 


THEN REPEAT THE CALCULATIONS AT THE NEW 

TEMPERATURE 

ISOT 

218 




ISOT 

219 


IFIFR1.LE.0. ) GOTO 2 208 


ISOT 

220 


IF! XCA.LT.0.2IT=T+TINC 


ISOT 

221 


T=T*TINC 


ISOT 

222 


IF! XCA.GT.0.97IGOTO2208 


ISOT 

223 


IF ( T INC «GT • 0, 1GOT02 207 


ISOT 

224 


IF! T ,GE «TF INALIG0T02221 


ISOT 

225 


G0T02208 


ISOT 

226 

2207 

IF! T.LE.TFINADG0T02221 


ISOT 

227 




ISOT 

228 


RE-INITIAL IZE 


ISOT 

229 




ISOT 

230 




ISOT 

231 

2208 

PRINT 833, YR1 ,YR2 »YR3»YP1 ,YP2 ,YP3 ,T ,XCA 

,Z2,DZZZ,RAA,EK 

ISOT 

232 


PRINT DATA 


ISOT 

233 


PRINT 2209, FTT 


ISOT 

234 

2209 

FORMAT! 1H0,25H MASS F LUX 1 LB/F T2 -SEC > = 

, F8.4) 

ISOT 

235 


PRINT221G,AF,SF,AEF 


ISOT 

236 

2210 

FORMAT! 1H0 , 3HAF =»E9.2»5H SF=,F6.2,6H 

AEF=,F6.1 ) 

ISOT 

237 


PRINT2211 ,AR,SR,AER 


ISOT 

238 
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2211 FORM AT ( 1H0, 3HAR= »E 9. 2 , 5H SR=,F6.2,6H AER=,F6.1) 

PR INT2212 

2212 FORMAT! 1H0,29HFWR1 FWR2 FWR3 FWP1 FWP2 FWP3 ) 
PRINT2213,FWRI,FWR2,FWR3,FWP1 ,FWP2,FWP3 

2213 FORMAT! 1X,6F6.1) 

PRINT 2218 

2218 FORMAT! 1H0,28H STOCHI OME TR I C COEFFICIENTS! 

PRINT2214 

2214 FORMAT I IHO, 24H R1 R2 R3 PI P2 P3! 

PRINT2215fRl*R2»R3fPitP2fP3 

2215 FORMAT! IX, 6F4.1 ) 

PRINT 2219 

2219 FORMAT! 1H0.45H EXPONENTS ON THE COMP. OF THE RATE EQUATION) 
PRINT 2216 

2216 FORMAT! 1H0,24H R4 R5 R6 P4 P5 P6! 

PRINT 2217,R4,R5,R6, P4,P5,P6 

2217 FORMAT! 1X.6F4.1) 

C READ IN NEW DATA FOR CALCULATIONS OF NEXT EQUATION 

GOTOl 111 
24 STOP 
END 


ISOT 239 
I SOT 240 
ISOT 241 
ISOT 242 
ISOT 243 
ISOT 244 
ISOT 245 
ISOT 246 
ISOT 247 
ISOT 248 
ISOT 249 
ISOT 250 
ISOT 251 
ISOT 252 
ISOT 253 
ISOT 254 
ISOT 255 
ISOT 256 
ISOT 257 
ISOT 258 
ISOT 259 
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INPUT FORMAT FOR THE ISOTHERMAL ANALYSIS 


CARD 1 : FORMAT (18A4) 

EQN(I) = Alphameric Reaction Expression 

CARD 2 : FORMAT (6F4.0) 

R1 = Stochiometric coefficient of 
Reactant 1 

R2 = Stochiometric Coefficient of 
Reactant 2 

R3 = Stochiometric Coefficient of 
Reactant 3 

PI = Stochiometric Coefficient of 
Product 1 

P2 = Stochiometric Coefficient of 
Product 2 

P3 = Stochiometric Coefficient of 
Product 3 

CARD 3 : FORMAT (6F4.0) 

R4 » Exponent of Reactant 1 

R5 = Exponent of Reactant 2 

R6 = Exponent of Reactant 3 

P4 = Exponent of Product 1 
P5 = Exponent of Product 2 
P6 = Exponent of Product 3 

CARD 4 : FORMAT (6F5.0) 

FWR1 a Molecular Weight of Reactant 1 
FWR2 s Molecular Weight of Reactemt 2 
FWR3 a Molecular Weight of Reactant 3 


PROGRAM 


COLUMNS 

1-72 

1-4 

5-8 

9-12 

13-16 

17-20 

21-24 

1-4 

5- 8 
9-12 
13-16 
17-20 
21-24 

I- 5 

6 - 10 

II- 15 
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COLUMNS 

FWP1 = Molecular Weight of Product 1 16-20 

FWP2 « Molecular Weight of Product 2 21-25 

FWP3 = Molecular Weight of Product 3 26-30 

CARD 5 : FORMAT (3E10.0) 

XR1 = Mole Fraction of Reactant 1 1-10 

XR2 “ Mole Fraction of Reactant 2 11-20 

XR3 » Mole Fraction of Reactant 3 21-30 

CARD 6 ; FORMAT (E8.0, 2F6.0) 

AF «= Frequency Factor (cm 3 /gm-mole/sec) 1-8 
SF = Exponent on Temperature 9-14 

AEF « Activation Energy (Kcal/gm-mole) 15-20 

CARD 7 : FORMAT (IX, 2E 14.7) 

A1 = 1st Constant of Equilibrium 

Constant 2-15 

A2 = 2nd Constant of Equilibrium 

Constant 16-29 

CARD 7 read the constants for the equilibrium constant 

fit of the form EXP (A1+A2/T) . 

CARD 8 : FORMAT (3F10.1, 2010.4) 

TINIT = Initial Temperature (°K) 1-10 

TINC = Temperature Increment (°K) 11-20 

TFINAL = Final Temperature (°K) 21-30 

HI = Initial Step Size (FT) 31-40 

HMIN = Minimum Step Size (FT) 41-50 



APPENDIX E 


A DESCRIPTION OF THE CHEMICAL 
EQUILIBRIUM ANALYSIS PROGRAM 

The chemical equilibrium analysis program is based on 
the free energy minimization method that is described in 
detail in Chapter IV. This analysis is a general method to 
calculate the equilibrium composition of a multi-component, 
polyphase system. 

As input, the program requires that the user specify 
the temperature, pressure and an estimate of the composition 
of the chemical species of interest which are consistent 
with the elemental composition. In its present form the 
program reads in the thermodynamic data as seven constants 
for a polynomial of the form of Equation (C-7) . This me- 
thod of reading the data into the program is compact and 
flexible. A brief description of the program follows: 

The Chemical Equilibrium Analysis Program 

The Chemical Equilibrium Program consists of a MAIN 
executive program and four subroutines. These subroutines 
are THERMO, H0LD1, TRACE, and MATINV, and a description of 
each is given in this section. 

MAIN : This is the executive routine of the chemical 

equilibrium program. This program generates the matrix 
necessary to solve the set of algebraic equations. 
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These coefficients are calculated following the same 
procedure described in Chapter IV. The coefficients are 
those shown in Table 4-1. The MAIN program calls THERMO to 
get the free energy function, and MATINV to invert the ma- 
trix and calculate the Lagrange multipliers. These 
multipliers are used to re-estimate the values of the com- 
position of the gases for the next iteration as is shown in 
Equation (4-32) . It should be noted, however, that values 
of are re-adjusted using the convergence procedure 
described in Chapter IV. This is to avoid possible diver- 
gence of the solution. It should be noted also that the 
composition of the solid species are explicitly solved in 
the matrix inversion subroutine and are also corrected by 
the same technique. 

THERMO : This subroutine provides the main program 

with the values of the free energy function for each of the 
species being calculated. In addition, the program calcu- 
lates the heat of formation of each species along with the 
sinsible enthalpy change per mole. 

The THERMO subroutine uses a polynomial expression 
similar to the one shown in Equation (C-7) of Appendix C 
to calculate the free energy function. This polynomial 
form is a very convenient and efficient way for repetitive 
calculation. It is certainly more accurate and less time 
consuming than a table look-up and requires less storage 


than the table form 
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MATINV : This subroutine is a standard method for 

solving a set of linear equations by inverting a non-singu- 
lar nxn matrix. The inversion is performed iteratively by 
reducing the original matrix by a series of row operations. 
The method is then repeated with the resulting identity 
matrix. This subroutine is the same as used in the ABLATIN2 
analysis that is described in Appendix A. 

HOLD1 : One of the major numerical drawbacks of the 

free energy minimization technique is that its convergence 
speed is reduced quite drastically by the presence of trace 
species during the numerical calculations. These trace 
species are those whose composition are less than 10 and 

1 I 

therefore their contribution to the total free energy of 
the system is computationally negligible. 

This subroutine checks for the presence of trace 
species. This is done if the procedure has not converged 
within a preset number of iterations. In our case, this 
number is ten. After checking for trace species, the sub- 
routine re-orders the species in descending order of 
compositions and eliminates those less than 10“ 8 . However, 
the program holds the species in storage for a final check 
at the end of the minimization procedure. This check is 
performed by subroutine TRACE which is described below. 

TRACE : If species have been eliminated during the 
computational procedure, subroutine TRACE is called to 
recompute their value at the end of the convergence 
procedure. The technique used is thoroughly explained in 
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Chapter IV. The equation used to calculate the trace 
species is Equation (4-46) . A listing of the program 
follows. 

At the end of the Appendix, an example illustrates how 
to use the program. The example selected is for silicone 
elastomers, and typical results are presented. 



on o n o n o n 


TABLE E-l. Listing of the Chemical Equilibrium Program 


THIS PROGRAM COMPUTES COMPLEX CHEMICAL EQUILIBRIUM FOR 
A MULTICOMPONENT, POLYPHASE SYSTEM BY FREE ENERGY MINI- 
MI Z A TI ON .( J. CHEM. PH YS. , VOL2 8, NO. 5, 1958) 


COMMON/KA/T CODE ( 40) , SPCI El ( 40 ) , S PC I E2 ( 40 ) , A A ( 40, 5 ), 

1 ENT1 (40) ,ENT (40) 

COMMON/KB/AT (40) , B I ( 40 ) ,C I ( 40 ) , 0 1 (40 I , E I ( 40 ) , F I (40 ) * 

1 GI(40»,AII( 40) ,BI I (40 ) ,CI I ( 40 ) »DI I ( 40 ) , E 1 1 (40 ) » 

2 F II (40) ,G I 1(40) ,DELH(40) » FORT ( 40 ) ,C (40 ) , TLOW( 40 ) , 

3 Y( 40) ,XMW(40) ,MLFRC(40) 

COMMON /KBB/CPDT1 (5) , PERC (40 ) , PERC 1 ( 40 ) 

CQMMON/KC / I IC0DE(40) ,XPCIE1(40) , X PC I E2 (40 ) , X AA ( 40 , 5 ) , 

1 XENT(40) »XENT1 (40) 

COMMON /KD/XAI (40 ) , XB I (40 ) ,XC I (40 ) ,XDI (40 1 *XE 1 ( 40 ) * 

1 XFK40) ,XGI(40) ,XAII(40) ,XBII(40),XCTI(40), 

2 XO I I ( 40 ) , XE 1 1 ( 40 ) , XF I I ( 40 I»XGII(40)»X MLFR ( 40 ) 
COMMON /KDD/XOELH ( 40) , XCPDT( 40 ) , XCPDT 1(05) , XFORT ( 40 ) , 

1 XY( 40) , XC( 40) , XTLOW(40) ,XXMW(40) , XPERC ( 40 ) , XPERC 1 (40 ) 
COMMON/KE/SK 5),S2(5) ,S3( 5 ) , S4( 5 ) , S5 ( 5 ) , All ( 5 ) , A22( 5 ) f 
1 A 33 ( 5 ) , A44 ( 5 ) ,A55(5) , S6 ( 5 ) , A66 ( 5 ) , JCODE ( 5 ) , S ( 40 ) 

COM MON /KF /NC»NS»MM,RR,MM1, NQ, NN , KW , I N, KOUT , KCODE , KSOL I D 
COMMON /KG /T,TZER0,TZER01 , T ZER02 , T ZER03 , T ZER04, T ZER05, P 
DIMENSION YSUMI40) , XMA S S ( 40 ) , DEL T ( 40 ) , X ( 40 ) , XL AM ( 40 ) , 

1 F Y( 40 ) »R(7,7) ,B(7,1) , P I ( 7 ) , BB ( 7 ) , FSUM( 40 ) , 

2 XMFR(40) ,YX(40) 

DIMENSION AAA ( 40 ) 

DIMENSION XM0LI40) 

DIMENSION XMA SI ( 2 0) 

DIMENSION XMA SSS (30) 

REAL MLFRC 


CHEM 

1 

CHEM 

2 

CHEM 

3 

CHEM 

4 

CHEM 

5 

CHEM 

6 

CHEM 

7 

CHEM 

8 

CHEM 

9 

CHEM 

10 

CHEM 

11 

CHEM 

12 

CHEM 

13 

CHEM 

14 

CHEM 

15 

CHEM 

16 

CHEM 

17 

CHEM 

18 

CHEM 

19 

CHEM 

20 

CHEM 

21 

CHEM 

22 

CHEM 

23 

CHEM 

24 

CHEM 

25 

CHEM 

26 

CHEM 

27 

CHEM 

28 

CHEM 

29 

CHEM 

30 

CHEM 

31 

CHEM 

32 

CHEM 

33 

CHEM 

34 
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no no no non nooonono 


C 


C 

c 


5 MA XNT= 1 00 CHEM 

K X=0 C HFM 

KPA SSS=0 CHEM 

MA= 1 CHEM 

CHEM 

KS0LID=0 CHEM 

CHEM 


READ INITIAL, FINAL, INCREMENTAL AND BASE TEMPERATURE. ALSO READ CRICHEM 
FOR CONVERGENCE, NUMBER OF GAS AND SOLID SPECIES, AND NUMBER OF ELEMCHEM 


CHEM 

CHEM 

READ INPUT PARAMETERS CHEM 

CHEM 

CHEM 

READ1,XT, TMA X,TINC,TZERO,CRIT,NC, MM, NNS CHEM 

IF! XT.LT. 1. IG0T0333 CHEM 

NS=NC+NNS CHEM 

1 FORMAT! 5F10. A, 316) CHEM 

MM I = MM CHEM 

READ 2, IHCODE ,H , I PUNCH CHEM 

2 FORMAT! I 6 , IF 1 0. 5 , 1 3 ) CHEM 

CHEM 

CHEM 

--COMPUTE THE SIZE OF THE MATRIX CHEM 

CHEM 

CHEM 

•\! A = MM+ 1 + N S-NC + I HC ODE CHEM 

CHEM 

N A = S I Z E OF MATRIX. IT VARIES WITH THE NUMBER OF ELEMENTS CHEM 

AND THE NUMRER OF SOLIDS PRESENT IN THE SYSTEM. CHEM 

CHEM 

DO 209 J=1,MM CHEM 

CHEM 

CHEM 


35 

36 

37 

38 

39 
AO 
A1 
A2 
A3 
AA 
A5 
A6 
AT 
A8 
A9 

50 

51 
5? 
53 
5A 

55 

56 

57 

58 

59 

60 
61 
62 
63 
6A 

65 

66 

67 

68 
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c 



CHEM 

69 


c 



READ IN EMPIRICAL CONSTANTS FOR THE ENTHALPY FIT OF THE 

CHEM 

70 


c 


ELEMENTS. 

CHEM 

71 


c 



CHEM 

72 


c 



CHEM 

73 


c 


SI THRU S 5=E MP! RI CAL CONSTANTS FOR HEAT CAPACITY OF ELFMENTS 

CHEM 

74 


c 


(ABOVE 1000 OKI 

CHEM 

75 


c 


All THRU A 55 = EMP I RI C AL CONSTANTS FOR HEAT CAPACITY OF ELEMENTS 

CHEM 

76 


c 


(UP TO 1000 OK) 

CHEM 

77 


c 



CHEM 

78 




READ2111,S1( JJ,S2( J) ,S3( J) ,S4( Jl , S5 ( J) ,S6 ( J I , JCOOE ( J I 

CHEM 

79 


2111 

FORMAT! 6E10.4,I3) 

CHEM 

80 



210 

FORMAT! 7E10. 81 

CHEM 

81 


c 



CHEM 

82 




READ 210, AIK J) ,A22( J) ,A33! J) ,A44! Jl , A55! J) , A66! J) 

CHEM 

83 



209 

CONTINUE 

CHEM 

84 


. c 



CHEM 

85 


c 



CHEM 

86 


c 


NC IS THE TOTAL NUMBER OF MOLES OF GASES USED IN THE ORIGINAL INPUCHEM 

87 


- c 


NN WILL DIFFER FROM NC ONLY WHEN TRACE SPECIES ARE ELIMINATED FRDMCHEM 

88 


c 


THE COMPUTATIONS WHILE BEING HELD IN A TEMPORARY LOCATION UNTIL 

WECHEM 

89 


c 


ARE REASONABLY SURE THAT WE ARE VERY CLOSE TO THE MINIMUM. 

CHEM 

90 


c 


NS IS THE TOTAL NUMBER OF MOLES OF GASES ♦ SOLIDS BEING READ IN. 

CHEM 

91 


c 


IT WILL DIFFER FROM NQ ONLY WHEN TRACE SPECIES APPEAR. 

CHEM 

92 


c 



CHEM 

93 


c 



CHEM 

94 




KREA0=0 

CHEM 

95 




NQ=NS 

CHEM 

96 




NN=NC 

CHEM 

97 


c 



CHEM 

98 

(Jl 

c 



CHEM 

99 

VO 

c- 

— 

-READ MOLECULAR WE IGHT , I NI T I AL GUESS, NAME OF SPECIE, AND CODE 

CHEM 

100 


c 


TO DETERMINE WETHER THE SPECIE IS ASOLID OR A GAS 

CHEM 

101 


c. 



CHFM 

102 




o o n o o o o r> o o ooooooonn onnoooooo 


NC = NO. OF GAS COMPONENTS 

NS=NO. OF CONDENSED PLUS GAS COMPONENTS 

MM=NO. OF ELEMENTS 

TZERO= REFERENCE TEMPERATURE (298.15 OK) 

RR=1.98726( CAL/GM-MOLE-OK) 

IC0DE=0 (GAS), =1 (SOLID) 

SPCIE1 AND S PC I E 2 ARE THE SPECIES IDENTIFICATION NAME 


CHFM 103 
CHEM ICA 
CHEM 105 
CHEM 106 
CHEM 107 
CHEM 108 
CHEM 109 
CHEM 110 


00 212 1=1, NS CHEM 112 

READ 208,TLOW(I) ,XMW(I) , Y(I) , SPC IEl (!) , SPCI E2 ( I ) , CHEM 113 

1 ICODE(I) CHEM l 1 A 

208 FORMAT( 10X , 3E 10. A , 2 X,2A3 , I A) CHEM 115 

CHEM 116 
C HE M 117 

READ IN EMPIRICAL CONSTANTS FOR THE ENTHAL PY , FREE ENERGY CHEM 118 

AND ENTROPY FIT OF THE CHEMICAL SPECIES. CHEM 119 

CHEM 120 
CHEM 121 
CHEM 122 


A I THRU Gl=EMPIR ICAL CONSTANTS FOR HEAT CAPACITY (ABOVE 1000 OK) CHEM 123 
READ 210, AI(!),BI(I),C!(I),DI(I),EI(!),FI(I),GI(I) 

All THRU GI I=EMPIRICAL CONSTANTS FOR HEAT CAPACITY (UP TO 1000 
READ 210,AII( I ) ,BII (I),CII( I » , 0 1 1 (I),EII( I) ,FII( I), Gild) 

READ IN THE FORMULA NUMBER 


AA( T , J)=FORMULA NUMBER. IT GIVES THE GRAM ATOMS OF ELEMENT 


CHEM 12A 
CHEM 125 
CHEM 126 
OK ) CHEM 127 
CHEM 128 
CHEM 129 
CHEM 130 
CHEM 131 
CHEM 132 
CHEM 133 
CHEM 13A 
CHEM 135 
CHEM 136 
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c 


J IN SPECIF I. 

CHEM 

137 

c 



CHEM 

13B 



READ 210t(AA( I . J) » J=1 , MM) 

CHFM 

139 


212 

CONTINUE 

CHEM 

1 AO 

c 



CHEM 

1A1 

c- 


-READ THE PRESSURE OF THE SYSTEM. 

CHEM 

1 A2 

c 



CHEM 

1 A3 



READ3»RR» P 

CHEM 

1AA 


3 

FORMAT ( 2F1 A. 8) 

CHEM 

1A5 

c 



CHEM 

1A6 

c 



CHEM 

1A7 

c- 

— 

-READ IN THE NUMBER OF ITERATIONS AFTER 

WHICH TRACE SPECIES CHEM 

IA8 

c 


SHOULD BE CHECKED. 

CHEM 

1A9 

c 



CHEM 

150 

c 



CHEM 

151 



RE AD6* NFREQ 

CHEM 

152 


6 

FORMAT! 3T6) 

CHEM 

153 

c 



CHEM 

15A 

c 


CRI T=CR TTERIA FOR CONVERGENCE. 

CHEM 

155 

c 


/ 

CHFM 

156 



XBETA=CRIT 

CHEM 

157 



K SEND=0 

CHEM 

158 



KSEND1=0 

CHEM 

159 



KORE=0 

CHEM 

160 



KOUT=0 

CHEM 

161 



B E TA =0 . 

CHEM 

162 



T= XT 

CHEM 

163 



KC0DE=0 

CHEM 

16A 



LL=NN+ 1 

CHEM 

165 

c 



CHEM 

166 

c 



CHEM 

167 

c 


MLFRC = MQLE FR ACT ION ( INCLUDI NG SOLIOS) 

CHEM 

168 

c 



CHEM 

169 



SUM=0. . 

CHEM 

170 


CT* 

O 



o o o rs r> n o o 


[)0 404 1=1, NO 
4 34 SUM- SUM+ Y( I ) 

r 

C. CALCULATE THF GRAM-ATOMS OF EACH ELEMENT. THIS TS THE 

MATERIAL BALANCE CONSTRAINT ON THE FREE ENERGY EQUATION 
BB(J) WILL STAY CONSTANT THROUGHOUT THE CALCULATIONS. VALUES 
OF Y(I) SHOULD BE IN STOCH I OMET RI C PROPORTION. 


BB ( J ) = GR A M ATOMS OF EACH ELEMENT 


00320J=l , MM 
BB ( J ) =0 . 0 
DO 320 1 =1 , N Q 

BB ( J )=BB ( J 1 +A A ( I V J)*Y<!) 

320 CONTINUE 
C 

C 

C C.HF.CK TO DETERMINE IF THERE ARE ANY SOLIDS IN THE SYSTEM. 

C 

c 

DO 433 1=1, NO 
I F ( TCODE ( I ) . EQ. 0 1 G0T0433 
KCODF= 1 
43? CONTINUE 
C 
r 

C IF THERF IS NOT AN ENERGY CONSTRAINT GO TO 500. 

C 

r 

I Ff I HCODE . F Q . 0 ) G0T05O0 

MM=MM+ 1 

BB ( MM) =H /SUM 


CHEM 

171 

CHEM 

172 

CHEM 

173 

CHEM 

174 

CHEM 

175 

CHEM 

176 

CHEM 

177 

CHEM 

178 

CHEM 

179 

CHEM 

180 

CHEM 

191 

CHFM 

182 

CHFM 

183 

CHFM 

184 

CHEM 

185 

CHEM 

186 

CHEM 

187 

CHEM 

188 

CHEM 

189 

CHFM 

190 

CHEM 

191 

CHEM 

192 

CHEM 

193 

CHEM 

194 

CHEM 

195 

CHFM 

196 

CHEM 

197 

CHFM 

l 98 

CHEM 

199 

CHEM 

200 

CHEM 

201 

CHEM 

202 

CHFM 

7 03 

CHFM 

204 
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non oonooo ooooono 


500 PRINT4 

4 FORMAT! 1H1 , 18X,5HF0/RT, 1 1 X ,1 2HI NI T I AL Y(II) 
K X=0 

CALL THERMO 


THERMO SUBROUTINE CALCULATES THE FREE ENRGY FUNf. ION* THE HEAT OF 
FORMATION OF EVERY CHEMICAL SPECIE AT ANY TEMPERATURE T * AND THE 
SENSIBLE ENTHALPY CHANGE PER MOLE OF EACH SPECIE. 


00 206 1=1, NO 

PRINT 14,1 ,SPCIE1( I ) , SPC I E2 ( I » , FORTH i*Ym 
14 FORMAT! 1 X, T 3 , 1 X , 2A3 , 2E 1 B. 7 1 
206 CONTINUE 
45 NTEST=NFREQ 
NT=l 


BETWEEN STATEMENT 300 TO 1050 THE R MATRIX AND THE VECTOR 
B ARE CALCUALTEO. 


3 00 Y8AR=0. 

IF! IHC0DE.EQ.01GOTO150 
DO 207 1=1 , NO 
AA ( I , MM ) =E NT1 ! I 1 
207 CONTTNUF 
150 0050T = 1, , NN 


YBAR IS THE TOTAL NUMBER OF MOLES OF GAS SPECIES 
r 
C 


CHFM 

205 

CHEM 

206 

CHEM 

207 

CHEM 

208 

CHEM 

209 

CHEM 

210 

CHEM 

211 

CHEM 

212 

CHEM 

213 

CHEM 

214 

CHFM 

215 

CHEM 

216 

CHEM 

217 

CHEM 

218 

CHEM 

219 

CHEM 

220 

CHEM 

221 

CHEM 

222 

CHEM 

223 

CHEM 

224 

CHEM 

225 

CHEM 

226 

CHEM 

227 

CHEM 

228 

CHEM 

229 

CHEM 

230 

CHEM 

231 

CHEM 

232 

CHEM 

233 

CHEM 

234 

CHEM 

235 

CHEM 

236 

CHEM 

237 

CHEM 

238 
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no n n o ooooooooo onoooo 


50 Y8 AR= Y8AR +Y ( I ) 
nnioT=i»NN 
F AC = Y( I I/YRAR 

TF( FAC *LT. 1 . F-73 I FAC = 1 • E-73 


CALCULATE THE FREE ENERGY PARAMETER OF THE GAS SPECIES 

TO BE MINIMIZE 


FY(II=Y( I >*(C! I M-ALOGIFAC 
10 CONTINUE 

IF UC'CODE.EQ •O'lGOTOl'll 


) ) 


IF THERE ARE NO SOLIDS PROCEED TO STATEMENT 111 


CALCULATION OF THE FREE ENERGY PARAMENTER FOR SOLIDS 


DO 11 I =LL ♦ NO 
FY( I ) = Y( I ) *FORT ( I ) 
11 CONTINUE 


PROCEED TO CONSTRUCT THE R MATRIX 


111 D030 J= 1 * MM 1 
D030K=J,MMI 
SUM=0 . 

DO 20 1 = 1 » NN 


CHEM 

239 

CHEM 

240 

CHFM 

241 

CHEM 

242 

CHEM 

243 

CHEM 

244 

CHEM 

245 

CHEM 

246 

CHEM 

247 

CHEM 

248 

CHEM 

249 

CHEM 

2 50 

CHEM 

251 

CHEM 

252 

CHEM 

253 

CHEM 

254 

CHEM 

255 

CHEM 

256 

CHEM 

257 

CHEM 

258 

CHEM 

259 

CHEM 

260 

CHEM 

261 

CHEM 

262 

CHEM 

263 

CHEM 

264 

CHEM 

265 

CHEM 

266 

CHEM 

267 

CHEM 

268 

CHEM 

2 69 

CHEM 

2 70 

CHEM 

271 

CHEM 

272 
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20 SUM=SUM+AA( I , J) *AA< I ,K)*Y( 1) 
R ( J t K ) = SUM 
R(K,J»=SUM 
30 CONTINUE 


GO TO 3000 IF THERE IS NOT AN ENERGY BALANCE CONSTRAINT 


IFMHCOOE.EO.0IGOTO300O 
00 3001 K=1,MM 
' SUM=0. 

DO 3002 T = 1 1 N N 

3002 SUM=SUM+AA(I,K) *AA( I t MM)*Y(I) 
R ( K » MM ) = SUM 
R I MM »K I = SUM 
3001 CONTINUE 
3000 JJ=MM+1 

DO 103 K = 1 » MM 
SUM=0. 

00 101 I = 1 » NN 
101 SUM= SUM* A A ( I f K 1 *Y (II 
R I K » J J I =SUM 
R ( J J»K) =SUM 
103 CONTINUE 

KL=NS-NC+ J J 
00 1044 J= J J » KL 
DO 1045 K=JJ,KL 
1045 R(J,K)=0.0 
1044 CONTINUE 

0 0 70 J = 1 » MM 


PROCEED TO CALCULATE THE VFCTOR B. 


CHEM 

273 

CHEM 

274 

CHEM 

275 

CHEM 

276 

CHEM 

277 

CHEM 

278 

CHEM 

279 

CHEM 

280 

CHEM 

281 

CHEM 

282 

CHEM 

283 

CHEM 

284 

CHEM 

285 

CHEM 

286 

CHEM 

287 

CHEM 

288 

CHEM 

289 

CHEM 

290 

CHEM 

291 

CHEM 

292 

CHEM 

293 

CHEM 

294 

CHEM 

295 

CHEM 

296 

CHEM 

297 

CHEM 

298 

CHEM 

299 

CHF.M 

300 

CHEM 

301 

CHEM 

302 

CHEM 

303 

CHEM 

304 

CHEM 

305 

CHEM 

306 
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130 

70 


80 


29 


1053 

1050 


C 





CHEM 

307 




CHEM 

308 

SUM=0. 



CHEM 

309 

001301=1, NN 



CHFM 

310 

SUM= SUM*- AA I I , J) *FY( I ) 



CHEM 

311 

B < J » 1 1 = SUM+BB ( J) 



CHEM 

312 

SUM=0. 



CHEM 

313 

00801=1 ,NN 



CHEM 

314 

SUM= SUM*F Y( 1 I 



CHEM 

315 

B ( J J , 1 ) = SUM 



CHEM 

316 

IFIKCOOE.EO.O JGOT01050 



CHEM 

317 

KK=MM+1 



CHEM 

318 

DO 29 T =LL , NO 



CHEM 

319 

KK=KK* l 



CHEM 

320 

DO 29 J=1,MM 



CHEM 

321 

R ( J , KK ) =AA C I , J 1 



CHEM 

322 

R< KK,JI=R( J,KK1 



CHEM 

323 

CONTINUE 



CHEM 

324 

KM=MM+1 



CHEM 

325 

00 1053 I =LL , NO 



CHEM 

326 

km=km*i 



CHEM 

327 

B( KM, 1 )=FORT< I ) 



CHEM 

328 

CONTINUE 



CHEM 

329 

IFIKCODE.EQ.OIRC JJ,JJ)=0. 



CHEM 

330 




CHEM 

331 




CHEM 

332 

MATRIX INVERSION IS CALLED TO PROVIDE THE 

SOLUTION 

FOR 

CHEM 

333 

THE LINEARIZED EQUATIONS, THE SOLUTION OF 

THE EQUATIONS 

CHEM 

334 

GIVES THE LAGRANGTAN MULTIPLIERS NEEDED TO COMPUTE 

THE MOLES 

CHEM 

335 

OF EACH GAS SPECIES, THE SOLUTION OF THE 

EQUATIONS 

GIVES, 

CHEM 

336 

IN A 00 1 T I ON , THE MOLES OF EACH SOLID SPECIE. 


CHFM 

337 




CHEM 

338 




CHEM 

339 

N = N A 



. CHEM 

340 



nnnno ooooooo r> o o 


m=ma 

CALL MATINV(R»NA,B,MA,NMAXI 
DOIOQI = 1 ♦ JJ 

PI! I l=LAGRANGINA MULTIPLIERS 

100 PI! I)=B! I,M) 

U=Pl ( JJ) 

XBAR -U*YBAR 

IF(KC0DE.EQ.0)GOT059 

KK=MM+2 

LM-LL 

00 1002 J=KK ,KL 

X! LW )=B( j* M) 

1002 LW=LW+1 


BETWEEN STATEMENT 59 TO 110 A PROCEDURE IS FOLLOW TO 
COMPUTE THE NECESSARY OATA TO CALCULATE THE MOLES OF EACH 
GAS SPECIE. 


59 00601=1, NN 

60 F SUM ( n=-FY(II + ( VCII /YBAR) ♦XBAR 

001101=1 ,NN 
P SUM=Q. 

DOl 20 J=1 , MM 

120 PSUM=PSUM+Pf ( J) ♦AAC I » Jl 
YSUM! 1 1 =PSUM«Y( I ) 


-CALCULATE THF MOLES OF GASEOUS SPECIES 


CHEM 

341 

C HEM 

342 

CHEM 

343 

CHEM 

344 

CHEM 

345 

CHEM 

346 

CHEM 

347 

CHEM 

348 

CHEM 

349 

CHEM 

350 

CHEM 

351 

CHEM 

352 

CHEM 

353 

CHEM 

354 

CHEM 

355 

CHEM 

356 

CHEM 

357 

CHEM 

358 

CHEM 

359 

CHEM 

360 

CHEM 

361 

CHEM 

362 

CHEM 

363 

CHEM 

364 

CHEM 

365 

CHEM 

366 

CHEM 

367 

CHFM 

368 

CHEM 

369 

CHEM 

370 

CHEM 

371 

CHFM 

37? 

CHEM 

373 

'C HEM 

374 


/ 


o\ 

o 

-~i 



o r> o o o r> r> o o r> o o o o n n r» 


110 X( T )=FSUM( I H YSUM(I) 


COMPUTE THE CONVERGENCE PARAMENTER XL AMBD 


XLAMRD=1. 

DO 86 1=1 » NO 
DEL T ( I) = X< l 1 — V ( 1 ) 

I F { DEL T( I ) .GE.O. IG0T086 
I F( X ( I I . GT.O., IG0T086 
XL AM ( I ) =-Y< I I /OELTC I I 
XLAMBO=A MI N1 ( XLAMBD. XLAMI I ) J 
XL A MB 0= • 99* XL AMR D 

86 CONTINUE 
XLAM 1 = XLAMBO 

IF C XLAMl.EQ.0.1XLAMl=l.E-5 
DEBAR=0 • 

00871=1 ,NN 

87 DEBAR=DEBAR+nELT( I) 


OETFRMTNF THE SIZE OF THE UNIT VECTOR X L AMRO . 

APPLY THF CORRECTIONS TO OBTAIN A NEW SET OF EST I M AT FS FOR THE 
NEXT ITERATION. WHEN THF VALUF OF XL AMBD IS VERY SMALL SET THE 
VALUES OF Y(T) EQUAL TO X(U TO AVOID USING THE SAME VALUES OF 
Yin AS WAS USED IN THE PREVIOUS ITERATION 


C OF TERM INF THE FREE ENERGY GRADIENT. IF POSITIVE REDUCE XL AM BOA 


CHEM 

3 76 

CHEM 

376 

CHFM 

377 

CHFM 

378 

CHEM 

370 

CHEM 

3 80 

CHEM 

381 

CHEM 

38? 

CHEM 

3 83 

CHFM 

3RA 

CHEM 

385 

CHEM 

386 

CHFM 

387 

CHEM 

388 

CHEM 

389 

CHFM 

3 or* 

CHFM 

391 

CHEM 

39? 

CHEM 

393 

CHFM 

39A 

CHEM 

395 

CHEM 

396 

CHFM 

397 

CHEM 

398 

CHEM 

390 

CHEM 


CHFM 

A01 

CHEM 

A02 

CHFM 

4.03 

CHEM 

ADA 

CHEM 

AOE 

CHEM 

A06 

CHFM 

A97 

CHEM 

AOB 
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CHEM 

409 


1 

CHEM 

410 

93 

DF0L=0. 

CHEM 

411 



CHEM 

412 


DFDL=FREE ENERGY GRADIENT 

CHEM 

413 



CHEM 

414 


D088I=1,NQ 

CHEM 

415 


IF( 1C00EUI .EQ. UG0T083 

CHFM 

4l6 

96 

FAC=(Y( I ) +XLAMBD*DELT ( I ) ) /< YBAR+XLAMBD*DEBAR ) 

CHEM 

417 

98 

IFIFAC.GT.O. IGDT082 

CHEM 

418 

991 

XLAMBD=.9*XLAMBD 

CHEM 

419 


IF ( XLAMBD.GT. 1.0E-09) G0T096 

CHEM 

420 


TF(FAC.LT.l.E-73>FAC=l.E-73 

CHEM 

421 

82 

DFDL=OFDL*DELT<I 1 *(C (II ♦AlOGt FAC H 

CHEM 

422 


IFC ICOOEIIl.EQ.ll GOTO 8 8 

CHEM 

423 


AAAI I |=DELT( I »*(C (Il+ALOGI FAC 11 

CHEM 

424 


GOTO 88 

CHEM 

425 

83 

DFDL=DFDL+OELTI I 1 *FORT (II 

CHEM 

426 

88 

CONTINUE 

CHEM 

427 


IF( DFDL_.LT. 0« OOOl G0T089 

CHEM 

428 


XLAMBD=.8*XLAMBD 

CHEM 

429 


IF ( XLANBD. GT« l. 0E-08) G0T093 

CHEM 

430 


DO 881 1 = 1 * NN 

CHEM 

431 

881 

CONTINUE 

CHEM 

432 



CHEM 

433 



CHEM 

434 

— 

-THE VALUE OF XLAMBD THAT ASSURES CONVERGENCE HAS BEEN FOUND 

CHEM 

435 



CHFM 

436 



CHEM 

437 

89 

D076T=1,NQ 

CHEM 

438 


IF( XLAMBD.GT. 1.E-6JG0T090 

CHEM 

439 


rFCOFOL .LT.O. JG0T090 

CHEM 

440 


IF{ XLAMl.LT.l.E-6)XLAMl=l.F-6 

CHEM 

441 



CHEM 

442 
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o r» o n o r» on on 


CHEM 

CALCUALTE THE NFW COMPOSITION FOR THE NEXT ITERATION CHEM 

CHEM 
C HEM 

Y< n=Y( n + XLAMl*OELTCn*.l CHEM 

GQT0900 CHEM 

90 CONTINUE CHEM 

Y( I>=Y( I M-XLAMBD*DEt T< I> CHEM 

900 CONTINUE CHEM 

IF! Ym.LT.O. >YtI)*l.E-73 CHEM 

76 CONTINUE CHEM 

SUM Y=0. CHEM 

SUMY 1=0. CHEM 

003701=1 »NN CHEM 

970 SUMY=SUMY*Y( I) CHEM 

TFIKCODE.EO.O IGOT03 72 CHEM 

00 371 l = L t » N 0 CHEM 

371 SUMY1 = SUMY1 +Y( I ) CHEM 

372 SUM Y 1 = S UMY1 + SUMY CHEM 

00 3 AO I = l » NO CHEM 

PFRC (l) =( Y{ I I /SUMY»*100. CHEM 

MLFRCI I)=Y( T> /SUMY1 CHEM 

340 PERCH I )=MLFRCt 11*100.00 CHEM 

CHEM 
CHEM 

CHECK IF CONVFRGENCE CRITERIA HAS BEFN MET. IF NOT GO BACK TO CHEM 

STATEMENT 300. CHEM 

CHFM 
CHEM 

350 R F T A = 0 . CHEM 

G SUM ?=0. CHFM 

on 3 41 I=l t NQ CHEM 

C IFfKX.EO.n. AND. NT . L T. NFRFO 1G0T03 A 10 CHEM 

I F ( Y ( I V.LT . 1.E-30IG0T053A CHFM 


AA3 

AAA 

445 

AA6 

4A7 

AA8 

AA9 

450 

451 

452 

453 

454 

455 

456 

457 
A58 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 
4 70 

471 

472 

473 

474 

475 

476 
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3410 IF< ICODEI n.E0.1)G0T0342 
F A C = Y ( I I /SUMY 

TF( FAC.LT. l.F-73 JFAC=l.F-73 
FY( I ) = Y( 1 )*(.C( I J+ALOGIFACII 

GSUM2=GSUM2+FY(Tl 
GOTO 341 

342 FY( I ) = Y( T ) ♦FORT I I ) 

GSUM ?=G SUM2+F Y( I ) 

341 CONTINUE 

TF( XLAM0O.FO.O. ) GOTO 53 4 

3411 008 5 1 = 1 1 NO 

85 BETA=9ETA+ABS(DELT( 1)1 

IFIOFDL.GT.O. .AND. XLAM1.GE. 0.9990 IG0T0534 
IF(BETA.LT.XBETA»GOT0800 

532 IF(NTEST.NE.NT)GOTO560 

533 NTE ST=NT + NFRFO 

534 KCALL=1 
INI T=LL 
NC0UNT=NQ 


PROCEED TO CHECK WHETHER THERE ARE TRACE SPECIES 


CALL HOLD 1 (KC ALL » INIT.NCOUNT, l.L» 
560 I F ( NT.GE .MAXNT) G0T0600 
N T =N T4- 1 


IF THE NUMBER OF ITERATIONS EXCEED 900 STOP COMPUTATIONS 


I F { NT.0T.9Q0)G0T0333 
GO TO 3 00. 


CHEM 

477 

CHEM 

478 

CHEM 

479 

CHEM 

4 80 

CHEM 

481 

CHEM 

482 

CHEM 

483 

CHEM 

484 

CHEM 

485 

CHEM 

486 

CHEM 

487 

CHEM 

488 

CHEM 

489 

CHEM 

490 

CHEM 

491 

CHEM 

492 

CHEM 

493 

CHEM 

494 

CHEM 

495 

CHEM 

496 

CHEM 

497 

CHEM 

498 

CHEM 

499 

CHEM 

500 

CHEM 

501 

CHEM 

502 

CHEM 

503 

CHEM 

504 

CHEM 

505 

CHEM 

506 

CHEM 

507 

CHEM 

508 

CHEM 

509 

CHFM 

510 
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ADJUST CONVERGENCE CRITERIA. THEY ARE TOO STRINGENT. 


600 XBETA=XBETA*-.001 
MAXNT=MAXNT+10 
NT=NT+1 
GOT0300 

800 IF ( KOUT .NE.lt GO TO 801 
I F I IN.EQ.NCI GOTO 80 I 


COMPUTE THE VALUES OF THE TRACE SPECIES THAT WERE LEFT OUT OF 
COMPUTATIONS. 


CALL TRACE I P I I 
802 NN=NC 
NO=NS 
KOUT=0 
KR TRN=0 

********************************************************************** 

********************************************************************** 

♦ 

* 

CONVERGENCE HAS BEEN ACHIEVED. PRINT OUTPUT * 

* 

* 

********************************************************************** 

********************************************************************** 

801 PRINT 1 6»NT ,U 

16 FORMAT! //IX, 30HNT = NO. ITERATIONS REQUIRED = 15, 5X, 

1 * U=X/Y= • IF15. 7//) 


CHEM 

511 

CHEM 

512 

CHEM 

513 

CHEM 

514 

CHEM 

515 

CHEM 

516 

CHEM 

517 

CHEM 

518 

CHEM 

519 

CHEM 

520 

CHEM 

521 

CHEM 

522 

CHEM 

523 

CHEM 

524 

CHEM 

525 

CHEM 

526 

CHEM 

527 

CHEM 

528 

CHEM 

529 

CHEM 

530 

CHEM 

531 

CHEM 

532 

CHEM 

533 

CHEM 

534 

CHEM 

535 

CHEM 

536 

CHEM 

537 

CHEM 

538 

CHEM 

539 

CHEM 

540 

CHEM 

541 

CHEM 

542 

CHEM 

543 

CHEM 

544 


612 




00 2190 J= l , MM 

CHEM 

545 


PRINT 21 89, B8( J) 

CHEM 

546 

2189 

FORMAT! IX, 6HBB( J)=,F15.8) 

CHEM 

547 

2190 

CONTINUE 

CHEM 

548 


PRINT201,BETA,SUMY1,H 

CHEM 

549 

20 1 

FORMAT (//IX, 7HBETA = E12.4,5X,* TOTAL NO, OF M0LES=«F8.4, 

CHEM 

550 


15X, * H=*E13,6//) 

CHEM 

551 


PRTNT 161 ,GSUM2 

CHEM 

552 

161 

FORMAT* IX, 47HFREE ENERGY F C Y 1 OF THE SYSTEM AT EQUILIBRIUM 

= E1 6, 8 )CHEM 

553 


PRINT204,P,T 

CHEM 

554 

204 

FORMAT* ///IX, 9HPRESSURE=E13 , 5 *5X,6HTEMR =E13,5//) 

CHEM 

555 


PRINT32 

CHEM 

556 

32 

FORMAT ( //6X,*I* , 21X , • YU 1 * ,9X , ' MOLE FRACT ION • , 5X , 

CHEM 

557 


l'M^SS FRACTION*) 

CHEM 

558 


DO 580.1 = 1 ,N0 

CHEM 

559 


XMOL ( I )=PERC* I) /l 00, 

CHEM 

560 

580 

CONTINUE 

CHEM 

561 


. EN-TRP Y=0, 

CHEM 

562 


XMWGAS=0. 

CHEM 

563 


TMA SMX-O, 

CHEM 

564 


TMASS=0. 

CHEM 

565 


DOS 1 1 = 1 , NQ 

CHEM 

566 


IF( ICODE* I ) ,EQ, l IGOT0790 

CHEM 

567 


TMASS=TMASS+XMW* I )*Y* I 1 

CHEM 

568 


XXXX=XMOL ( I 1 *XMW( I ) 

CHEM 

569 


XXX=P*XMOL( I ) 

CHEM 

570 


S( I )=S( I ) -RR*ALOG * XXX) 

CHEM 

571 


ENTRPY=ENTRPY+S( I )*XMOLI I ) 

CHEM 

572 


XMWG A S= XMWGA S + XMOL ( I ) *XMW* I ) 

CHEM 

573 


GOTO 81 

CHEM 

574 

790 

TMA SMX=TMASMX+XMWtI l*Y(II 

CHEM 

575 

8 1 

continue 

CHEM 

576 


TMA SMX=TMASMX + TMASS 

CHEM 

577 


DO 1911=1, NO 

CHEM 

578 
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XMAS1! I)=Y( I ) *XMW! I) /TMASMX 
XMASS! I l=XMW! I)*XMOL{I) /XMWGAS 
191 CONTINUE 
00441=1, NO 

IF! IPUNCH.EQ.0JG0T043 
I F C X MOL (I) . L T . 1 . 0000E-4) G0T043 
PUNCH 46*XM0l<I),SPCIEim,SPCIE2m 
46 FORM AT ( 2E 1 4, 7 * 10X, 2A3 ) 

43 PRINT 19,I,SPCIEl!I>,SPCIE2!I>,Ym,XMOLm,XMASS!!) 

44"' CONTINUE 

19 FORMAT! IX, I 6„ 3X ,2A3 ,2 X,3E18. 71 

-- ENTGAS=Oo . . . 

PRINT12 

12 FORMAT! ///36X,'MASS FRACTION' , /I 5X ,' HEAT OF FORMATION *,2X, 
1 ' OF THE MIXTURE', 5X, 'ENTROPY' I 
•00 781 1 = 1, NO 

781 , ENTGAS=ENTGA S+ENTl! I ) •PERCCII /100. 

DO. 79 1=1, NO 

79 PRINT 24, I, SPC I E 1 1 II , SPC I E2 ! 1 1 , ENT I II , XMAS 1 1 I ) , S I II 
24 FORMAT! IX, 15, 3X, 2 A3 ,3E17*7I 
ENTRPY=ENTRPY /XMWGAS - 
ENTGAS=ENTGAS/XMWGAS 
PRINTl8,ENTGAS 

18 FORMAT! //IX, 'ENTHALPY OF GAS MI XTURE ! CAL/GM-MOLE=* E 17 .7 ) 

PR INTI 7, XMWGAS, ENTRPY 

17 FORMAT! //IX, 28HMOLECULAR WEIGHT OF GAS MIX=E16.8,4X, 

1 'ENTROPY! CAL/IGM-MOLE-OK! ) = 'E17.6//1 
XBETA=CR I T 
LL=NN+ l 
NTE ST=NFREO 
K SOL 10 = 0 
KX=0 

IF! IHC00E.E0.0IG0T0332 

H=H- 100P . f 


CHEM 579 
CHEM 580 
CHEM 581 
CHEM 582 
CHEM 583 
CHEM 584 
CHEM 585 
CHEM 5&6 
CHEM 587 
CHEM 588 
CHEM 589 
CHEM 590 
CHEM 591 
CHEM 592 
CHEM 593 
CHEM 594 
CHEM 595 
CHEM 596 
CHEM 597 
CHEM 598 
CHEM 599 
CHEM 600 
CHEM 601 
CHEM 602 
CHEM 603 
CHEM 604 
CHEM 605 
CHEM 606 
CHEM 607 
CHEM 608 
CHEM 609 
CHEM 610 
CHEM 611 
CHEM 612 



BB(MM)=H/SUMY1 
IF (H.IT.I -30000. MG0T0332 
IF ( IHCODE.EQ.UGOTO500 
332 T=T+TINC 

I FC T.GE.3373. )TINC=10. 

IF( T .GE . TMAXIG0T05 
. GOT0500 
333 PRINT 5119 
5119 FORMAT ( IH1 ) 

STOP 

END 


CHEM 613 
CHEM 614 
CHEM 615 
CHEM 616 
CHEM 617 
CHEM 618 
CHEM 6J9 
CHEM 620 
CHEM 621 
CHEM 622 
CHEM 623 


615 
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SUBROUTINE THERMO 


FORMATION OF EVERY CHEMICAL SPECIE AT ANY TEMPERATURE T t AND THE 
SENSIBLE ENTHALPY CHANGE PER MOLE OF EACH SPECIE. 


COMMON /K A /ICODE ( 40) * SPCIE1 (40 1 » SPCI E2 <40 ) «AA ( 40y 5 ) « 

1 ENT1(40) ,ENT(40) 

COMMON/KB/ AH 40) ,BI 1 401 ,C I ( 40 I ,D I (40 I ,E 1(40 1 , F I (40 ) , 

1 G II 40) f AI I ( 401 *BI I (40) » Cl I(40)«DII(40)yEII(40)* 

2 FI 1(40) »GI 1140) » DELHI 40) »F0RT (40) «C(40) »TLOW(40) V 

3 Y( 40) ,XMW(40) ,MLFRC(40) 

COMMON /KBB/CPOTU5) ,PERC(40) • PERC l < 40 ) 

COMMON/KE/SU5) ,$2(5) ,S3(5),S4(5),S5(5),A11(5),A22(5), 

1 A 33(5) ,A44(5),A55(5) , S6 (5 1 , A66 ( 51 , JCODE ( 5 ) ,S 1 40 ) 

COMMON /KF/NC, NS, MM ,RR,MM1 , NQ, NN«KH, INyKOUNT , KCODEyKSOL 1 D 
COMMON/KG/T , TZER0,TZER01 , TZER02 *TZER03,T ZER04,TZER05, P 
REAL MLFRC 

T=TEMPE RATURE IN OK 

TI=T 

T2=T1*T 

T3=T2*T 

T4=T3*T 

T 5=T 4*T 

A I=T 

A2=T2/2. 

A3=T3/3. 

A4=T4/4. 

A 5=T5/5» 


THER 

1 

THER 

2 

THER 

3 

THER 

4 

THER 

5 

THER 

6 

THER 

7 

THER 

8 ' 

THER 

9 

THER 

10 

THER 

11 

THER 

12 

THER 

13 

THER 

14 

THER 

15 

THER 

16 

THER 

17 

THER 

18 

THER 

19 

THER 

20 

THER 

21 

THER 

22 

THER 

23 

THER 

24 

THER 

25 

THER 

26 

THER 

27 

THER 

28 

THER 

29 

THER 

30 

THER 

31 

THER 

32 

THER 

33 

THER 

34 
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CALCUALTE THE FREE ENERGY FUNCTION FORTH!, THE ENTROPY SU>, THER 

AND THE CHEMICAL ENERGY ENTICII THER 

THER 

THER 

THER 

FORT C I )=FREE ENERGY FUNCTION THER 

SCI) =ENTROPY THER 

ENT1( I )=HEAT OF FORMATION AT 298 OK + THE SENSIBLE THER 

ENTHALPY GAIN FROM 298 TO T. THER 

- THER 

NQ=NS THER 

DO 41 1=1, NO THER 

IF C T.GT.TLOWC I ) IGOT06205 THER 

FORTH ) = AII(I l*{ i.-ALOGCTI I-BII (I !*T/2. -C II tII*T2/6.-DI I CI)*T3/12 .THER 
1 — E 1 1 1 1 I *T4/20»*F 1 1 (I ) /T— GII HI THER 

SCI ) = ( A 1 1 ( I l*ALOGCTI*BII ( 1 1 *T+CI I H I *T2/2 .*DI I H l*T3/3. *E 1 1 (I IST4/THER 
14,+GIKI I |*RR THER 

ENTlMl=CAIim*Al+BIini*A2+CIIHI*A3«-DIim* ! A4*EIin»*A5 THER 

1+FI ICl I )*RR THER 

I F ( ICQDEC I I ,EQ. 1IG0T041 THER 

C ( I l=FORT ( I l+ALOG ( P I THER 

GO TO 41 THER 

6205 FORT (I ) = AI (I I *< l . -ALOG( Til — B I H l*T/2 .-C I (I l*T2/6. -DI ( I l*T3/12. THER 
1 -El (I l*T4/20.+FIHI/T-Gin> THER 

SC 1 1 = A I € 1 1 *ALOG (T1+BIHI*T4-CI ( 1 1 *T2/2 .+DI H I *T3/ 3 .+EI (I 1+T4/4.+ THER 

IGI(I) THER 

S( I I =S( 1 1 *RR THER 

ENT HI )=( AI ( I I*A1+BI { II*A2+CI ( I I *A3+DI (II *A4+EI (II*A5 THER 

1+FI(III*RR THER 

I FC ICODEIH .EQ.l IG0T041 THER 

Cm=FORT( n + ALOGCP) THER 

41 CONTINUE THER 

DO 781=1 , NQ THER 

C ELEMENTS FOR TEMPERATURES GREATER THAN lOOO(OK) THER 


35 

36 

37 

38 

39 

40 

41 

42 ' 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 



IF( I.GT.UG0T06291 THER 69 

IF(T.LT.TL0W( l HG0TQ6207 THER 70 

C THER 71 

C THER 72 

C CALCULATE THE SENSIBLE ENTHALPY OF THE CONSTITUENT THER 73 

C THER 74 

C ' THER 75 , 

00 2 96 J=1 f MM1 THER 76 

CPOTK J) = l SIC J)*A1+S2< J)*A2+S3( JI*A3*S4t J)*A4*S5 IJI* A5 THER 77 

1 +S6(JM*RR THER 78 

296 CONTINUE THER 79 

G0T06291 THER 80 

C , • ’ THER 81 

C THER 82 

C CALCULATE THE SENSIBLE ENTHALPY OF THE CONSTITUENT THER 83 

C ELEMENTS FOR TEMPERATURES LESS THAN IOOOIOKI. THER 84 

C > THER 85 

C THER 86 

6207 00297 J=1 » MMI THER 87 

CPDTK J) = (AU< J)*A1 + A22< JI*A2+A33IJ»*A3+A44< J)*A4 THER 88 

l + A55( J)*A5*A66C JK*RR THER 89 

297 CONTINUE THER 90 

C THER 91 

C R SUM IS THE SENSIBLE ENTHALPY OF THE ELEMENTS OF THE ITH SPECIE THER 92 

C AT TEMPERATURE T(0KJ,WITH RESPECT TO THE STANDARD STATE I P= 1ATM* THER 93 

C TZER0=298.I50K) THER 94 

C THER 95 

C THER 96 

C COMPUTE THE HEAT OF FORMATION OF EACH CHEMICAL SPECIE THER 97 

C THER 98 

C THER 99 

C THER 100 

C ENT( I)=HEAT OF FORMATION OF EACH CHEMICAL SPECIE AT TEMPERATURE THER 101 

C T. THER 102 



6291 RSUM=0. 

00 398 J=1 » MM1 
IF! JCODEI JI.EQ. UG0T0393 
R SUM=R SUM+O. 5 *AA II , J > *C POT II J ) 
GO TO 398 

393 RSUM=RSUM+AA| I , J)*CPOTl(J» 

398 CONTINUE 

ENTI I)=ENT1( I I-RSUM 
IFIABSIENTI I ) J.LT.3, I ENTI I »=0. 

78 CONTINUE 
RETURN 
END 


THER 103 
THER 106 
THER 105 
THER 106 
THER 107 
THER 108 
THER 109 
THER 110 
THER 111 
THER 112 
THER 113 
THER 116 
THER 115 



V£ 

££ 

Z£ 

l£ 

oe 

6Z 

8 Z 

IZ 

9Z 

£*Z 

*Z 

£Z 

ZZ 

IZ 

OZ 

61 

81 

It 

91 

51 

VI 

£1 

Z 1 

11 

01 

6 

8 

L 

9 

5 

V 

£ 

Z 

l 


enow 

0 10H 
GIOH 
GIOH 
G10H 
GIOH 
G30H 
GIOH 
GIOH 
GIOH 
U10H 
G10H 
GIOH 

oioh 

030H 

aioH 

GIOH 

oioh 

OIOH 

oioh 

GIOH 

Q1GH 

gioh 

GIOH 

aiOH 

oioh 

GIOH 

OIOH 

anoH 

OIOH 

U10H 

G10HSN01 

GIOH 

G1GH 


nimvMr uivx 

OOiV = ID IVX 
XVHAMDAX 
•0=(X)A 

0 £80109 (9-3 4 1 *19 M ‘l -( X )XA )S 8 V ) 3 1 

XVWA/ Ot)A-lX)XA 
NN 4 l='XG£80a 
( (1)A*XVHA)1XVHV=XVWA 
NN 4 I=10ZS00 
*U=X VWA 
NN 4 l=rG£S00 
050 50103 ( Z*03*T1V3X )3I 
3b31W 1V3b 
(OV)XA N01SN3W1G 

anQSX 4 3a03X 4 in0X 4 NI 4 #<X 4 NN 4 0N 4 lWW 4 yy 4 WW 4 SN 4 3N/dX/N0WW03 
i G*l 13b3dX 4 1 GV )3d3dX 4 tO^lMWXX 4 (OV)MOllX 4 (O 4 ? )3X 4 <0* >AXl 
4 tO^lldOdX 4 (50)llQd3X 4 IGViiOdOX* t0*)H13dX/G0X/N0WW03 
( GVIddlWX* t OV) l 19X 4 1GV ) II3X*(0V)I13X 4 I0V) 1 IGX Z 

4 (OV)l I3XM0VH18XM0V) IIVXM0V)I9X 4 C0V)I3X l 

4 (G*)13X 4 (GV)iaXMOV>I3XMOV)I8X 4 (OV) IVX/GX/N0WH03 

(0V)UN3X 4 (0V)1N3X l 

MS 4 0V) VVXM0V)Z313dX 4 ( OV ) 13 13dX 4 I OV > 30031 1/3X/N0WH03 
(QV)I3«3d 4 (0V)3d3d 4 (5) llOd 3/ 88 X/ NOWWO 3 
10V)3b31W 4 (OV)MWX 4 (OV)A £ 

MOV)H011 4 (0V)3MCV)ldO3M0V)H13a 4 ( OV )1 19* ( OV ) I I 3 Z 

Mov) 1 13 4 (ovn iomovhio* iov>U8 4 (ovmvMovno 1 

MOV) I 3* C0V)I3M0V)10M OV)I3 4 10V)I8 4 ( OV ) 1 V /8X/NGWW0 3 

10V)1N3 4 (OV) UN3 l 

4 (S 4 QV)VV 4 (0V)Z310dS 4 ( OV ) 13 I3dS 4 CO 4 ? ) 3003 1/VX/NGWW03 

•GN3 3H1 UlNfl 39V801S N1 W3H1 OIOH QNV 
AVlfld W03 3H1 WOdd S3) 33dS 33V81 3H1 S31VN1W113 3Nlin0b8nS S1H1 

< VI 4 1N0U3N 4 llNl 4 llV3>i) 1G10H 3Nlin0b8nS 
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Ol 

to 

o 
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XBI ( J ) =8 1 ( K ) 

HOLO 

35 


XBTt ( J 1=8 II (K 1 

HOLD 

36 


XCI ( J)=CI(K) 

HOLD 

37 


XCTT( J)=CIT(KI 

HOLD 

38 


XO I ( J 1=01 ( K I 

HOLD 

39 


XD 1 1 ( J > =D 1 1 l K ) 

HOLO 

40 


XE I ( J ) = EI ( K > 

HOLD 

fl 


XEIIfJI— ETIfKI 

HOLD 

42 


XFI( JI=FI(K) 

HOLD 

43 


XFII(JI=Fir(K) 

HOLD 

44 


XGI ( J)=GI ( K) 

HOLD 

45 


XGIK J 1 =G 1 1 € K 1 

HOLD 

46 


XCI J)=C(K) 

HOLD 

47 


XPERC I J ) =PERC IK 1 

HOLD 

48 


XPERC-1 ( J ) =P ERC 1 1 K 1 

HOLD 

49 


XML FR I J)=MLFRC(K1 

HOLD 

50 


XFORTI J»=F0R7{K» 

HOLD 

51 


XENTl J)=ENT(K> 

HOLD 

52 


XENT1( JI=ENTI(K) 

HOLO 

53 


XTLOWf J) = TLOW(IO 

HOLO 

54 


XDELHI J )=DE LH I K ) 

HOLO 

55 


XXMWI Jl = XMW( K ) 

HOLD 

56 


XPC I E 1 ( J ) = S PC I E 1 ( K ) 

HOLD 

57 


XPC IE2( J) = SPCIE2(K» 

HOLD 

58 


I ICODE ( J 1 = I CODE I K > 

HOLD 

59 


005401=1, MM 

HOLD 

60 

540 

XA A ( J, I ) =A A { K , I ) 

HOLD 

61 

530 

CONTINUE 

HOLD 

62 


L 1=NN 

HOLO 

63 

521 

DO 510 1=1, LI 

HOLD 

64 


AH T I = X A I ( I ) 

HOLD 

65 


AIim = XAHU» 

HOLO 

66 


bmi ) = x 8 1 f t > 

HOLD 

67 


8 II( I ) = X8TI ( I } 

HOLD 

68 


621 




cic n=xcit n 

HOLD 

69 


cm i ) = xc 1 1 ( i ) 

HOLD 

70 


D I ( I )=XDI< I ) 

HOLD 

71 


oru h = xdiu n 

HOLD 

72 


eh n=xEim 

HOLD 

73 


EIIU )=XEI!U 1 

HOLD 

74 


FKUaXFim 

HOLD 

75 


FII(n=XFUUI 

HOLD 

76 


G I ( n = XGI( 1 J 

HOLD 

77 


Gild ) = XGI I <I» 

HOLO 

78 


SPCIEK I)=XPC IE1( !) 

HOLD 

79 


SPCIE2I n=XPC!F2U> 

HOLD 

80 


FORTH ) = XF0RT ( I ) 

HOLD 

81 


ENT( I l=XENT( I ) 

HOLD 

82 


ENT'l ( l ) =XENT1 ( I ) 

HOLD 

83 


TLOWU l=XTLOW(I ) 

HOLD 

8* 


DELH( I)=XDELHm 

HOLD 

85 


XMW( I ) = XXMWH ) 

HOLD 

86 


IC0DE< I >= 1 1 CODE « I » . 

HOLO 

87 


PERCH »=XPERC( J ) 

HOLD 

88 


PERC HI ) = XPERC1< I » 

HOLD 

89 


MLFRCI II=XMLFR( I) 

HOLD 

90 


I F ( ICODEl D.EQ. IT GOTO 52 11 

HOLD 

91 


cm=xcm 

HOLD 

92 

5211 

DO 590 J= 1 ♦ MM 

HOLD 

93 

590 

AA( T,J)=XAA(I,J» 

HOLD 

94 


KOUT = 1 

HOLD 

95 

510 

Y ( n = XY( l ) 

HOLD 

96 


KW = 0 

HOLD 

97 


TN=NN 

HOLD 

98 


005501=1, NN 

HOLD 

99 


IF (PERC (I ) . GT,l.E-9)GOTO550 

HOLD 

100 

5500 

I N=I N-l 

HOLD 

101 


KW=KWM 

HOLD 

102 


622 



550 

CONTINUE 

HOLD 

103 


NN=TN 

HOLD 

104 


NL=NN+1 

HOLD 

105 


IFtKCOOE.EQ.O IGOT05600 

HOLD 

106 

5050 

00 507 r=I NI T,NCOUNT 

HOLD 

107 


IEf KCALL.EQ.21G0T05051 

HOLD 

108 


AI<NL)=AI(l) 

HOLD 

109 


At HNL1=AII( I) 

HOLD 

110 


Bit NL) =81(11 

HOLD 

111 


BIKNL 1=8 11(11 

HOLD 

112 


CI(NL)«CT'm 

HOLD 

113 


CTMNL)=CI!(n 

HOLD 

114 


Dl(NL» = Oim 

HOLD 

115 


0 1 I ( NL )=0 1 1 ( I I 

HOLD 

116 


EI(NLI = EI(n 

HOLD 

117 


E 1 1 ( NL )=E f I ( 1 ) 

HOLD 

118 


F I( NL 1=F I ( I ( 

HOLD 

119 


FIICNL ) =F 11(1 ) 

HOLD 

120 


GI(NU=Gim, 

HOLD 

121 


GIHNL )=GI I ( I ) 

HOLD 

122 


SPC IE 1 ( NL ) =SPCI E 1 ( 1 1 

HOLD 

123 


SPC IE2(NL)=SPCIE2(I) 

HOLD 

124 


FORT<NL)=FORTU) 

HOLD 

125 


ICOOE(NL)=ICOOE( I) 

HOLD 

126 


XMW(NL)=XMWn.) 

HOLD 

127 


ENT( NL )=ENT( 11 ) 

HOLD 

128 


ENT1 ( NL ) =ENT1 ( 1 ) 

HOLD 

129 


TL0W(NL1=TL0W( I ) 

HOLD 

130 


OELH(NL)=DELHin 

HOLD 

131 


PERC (NLI=PERC (I) 

HOLD 

132 


PERC1(NL)=PERC1(I) 

HOLD 

133 


ML FRC( NL ) =MLFRC ( I 1 

HOLD 

134 


IFCKSOL TO.EO. HG0T0551 

HOLD 

135 

5051 

XAH I ) — A I ( I I 

HOLD 

136 



xAii<n=Aiim 

XBim = BI(I > 

XBIK i > =B II (I) 

xch n=cn n 
xcik n=cnm 

XDI ( I )=DI< n 
XDIIU)=DIim 
XEI( II=EI(U 

xeih n=Einn 

XFH I» = FI( I ) 
XFiKiKinn 
XGT ( II=GI( 1 1 
XGirc iNGiim 
XPt. IE If I I = S.PC I E 1 f I ) 
XPCIE2C I>=SPCIE2III 
XPERCU) = PERCU) 
XPERC1U)=PERC1< I) 
XMLFRfl 1=MLFRC( II 
XFORT( I 1=F0RT(I) 

1 1 C 00 E ( ,t I = I C ODE ( 1 1 
XXMWm=XMWM) 

XTLOWd ) = TL0W(II 
XDELH( I )=DELH( II 
I Ff KCALL.EQ.2IG0T0551 
XENTCI )=ENT ( I I 
XENT1 ( I I =ENT1 ( I ) 

551 00 501 

IFfKCALL .E0.21GOT05510 
AA( NL » J l=AA( I t J| 

I F ( KSOL 10 »E0 • 1) GOT 05 91 
5510 XAA{ 1 1 J ) =A A ( I » J ) 

591 CONTINUE 

I F C KCALL.EQ.2IG0T0560 
Y(NL ) = Y( I ) 


HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOLD 
HOI D 
HOLD 
HOLD 
HOLD 


137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 
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NL=NL+1 

HOLD 

171 

507 

CONTINUE 

HOLD 

172 


KSOL ID= 1 

HOLD 

173 

5600 

LL=NN+ l 

HOLD 

174 


NQ=NO-KW 

HOLD 

175 


IFIKCODE.FO.O )NO=NN 

HOLD 

176 

560 

RETURN 

HOLD 

177 


ENO 

HOLD 

178 
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SUBROUTINE TRACE (PI) 

COMMON/KA/I CODE (40) , SPC I El ( AO ) , SPCI E2 ( AO ) * AA(40, 5 ), 

1 ENT1 ( 40) » ENT (40) 

C0MM0N/K8/AI (40) ,BI(40) ,CI(40),DI(40) »EI (40) ,FI(40) f 

1 GI(40)*AII( 401 *BII(40)fCIT(40l»DII(40)fEII(40)* 

2 FI 1(40) »GI I (40 ) f OELH( 40 ) .FORT (40 ) « C (40 ) . TLOW (40 ) * 

3 Y( 40) ,XMW(40t ,MLFRC(40> 

COMMON/KBB/CPDTl <51 ,PERC (40) . PERC1 (40 ) 

COMMON/KC/l I CODE (40I#XPCIE1(40I*XPCIE2(40)*XAA(40»5)* 

1 XENTI40) •XENTIUO) 

COMMON/KD/XAI (40) ,XBI (40) ,XCI (40) *XDI <40 1 *XEI ( 40 I , 

1 XFl(40) f XGI(40I.XAII(40)*XBII(40),XCII(40), 

2 XDI I ( 401 1 XE 1 1 ( 40) « XF 1 1 ( 40 ) y XGI I (40 I *XMLFR (40 ) 

COMMON /KDD/XDELH( 40) .XCPDT ( 40 ) , XCP0T1 (05 ) t XFORT ( 40 ) * 

IXY(40J ,XC(40) *XTLOW(40I , XX MW< 40 ) , XPERC ( 40 ) » XPERC1 (40) 
COMMON /KF /NC f > NS f MM« RR *MM1 V NQ» NN* KW« IN*KOUT»KCODE »KSOL ID 
DIMENSION YTRACE (40) t PI (7) 

REAL MLFRC 
L 1 = 1 N+ 1 

STORE THE VALUES OF Y( I ) OF THE SOLID SPECIES BEFORE BEING 
BY THF CALCULATIONS OF THE TRACE SPECIES WHICH FOLLOWS. 

IF( KCODE.EO.O )GQT07428 
NP=NC+1 
L 4=NN+ 1 

DO 742 7 I =L4» NO 
XY(NP)=Y(T) 

XPERC ( NP ) =PFRC ( I ) 

XMLFR ( NP ) =MLFRC ( I ) 

XPFRCKNP)=PERC1( I) 

7427 NP=NP+1 

7428 YBAR=0. 

C 


TRAC 

l 

TRAC 

2 

TRAC 

3 

TRAC 

4 

TRAC 

5 

TRAC 

6 

TRAC 

,-T 

TRAC 

8 

TRAC 

9 

TRAC 

10 

TRAC 

11 

TRAC 

12 

TRAC 

13 

TRAC 

14 

TRAC 

15 

TRAC 

16 

TRAC 

17 

TRAC 

18 

TRAC 

19 

TRAC 

20 

ERASEO TRAC 

21 

TRAC 

22 

TRAC 

23 

TRAC 

24 

TRAC 

25 

TRAC 

26 

TRAC 

27 

TRAC 

28 

TRAC 

29 

TRAC 

30 

TRAC 

31 

TRAC 

32 

TRAC 

33 

TRAC 

34 
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PROCEED TO CALCULATE THE TRACE SPFCIES 


C 
C 
c. 

DO 7429 1=1 » NN 

7429 YB AR= YRAR+Yl T ) 

DO 7433 I = l.l,NC 
SUM=0. 

DO 7430 J= 1 » MM1 

7430 SUM=SUM+XAA( 1 , J) *PI< J) 

SUM l=-C ( 1 1 ♦SUM 

IF f SUM1.LT.0, 1G0T07431 
YTRACEl I ) =YBAR*(EXP( SUM1 ) ) 

GOTO 7432 

7431 SUM2=-SUM1 

YTRACE ( T)=YBAR*(1./(FXP(SUM2> )l 
XPERCl 1 1 =( YTR ACE ( 1) /YBAR)*100. 

7432 XY ( I ) =YTRACF l I ) 

7433 CONTINUE 

DO 7434 1=1, NN 
XPERC(n = PERCm 

7434 XY( I ) = Y( I I 
L 1 = N S 

521 DO 510 1=1, LI 
AI(I) = XAim 
A IK I 1= X A 1 1 (I ) 

Bill ) = XBT( I ) 

B I T ( I ) = XB 1 1 < I ) 

cim=xcim 

C!I(I) = XCIT(T) 

OKI > = XDI 1 I ) 

Dim ) = X D 1 1 1 I ) 

ET(T)=XE!(T) 

EIK T ) = XEII( I ) 

Fit I ) = XFU II 


TRAC 

35 

TRAC 

36 

TRAC 

37 

TRAC 

38 

TRAC 

39 

TRAC 

40 

TRAC 

41 

TRAC 

42 

TRAC 

43 

TRAC 

44 

TRAC 

45 

TRAC 

46 

TRAC 

47 

TRAC 

48 

TRAC 

49 

TRAC 

50 

TRAC 

51 

TRAC 

52 

TRAC 

53 

TRAC 

54 

TRAC 

55 

TRAC 

56 

TRAC 

57 

TRAC 

58 

TRAC 

59 

TRAC 

60 

TRAC 

61 

TRAC 

62 

TRAC 

63 

TRAC 

64 

TRAC 

65 

TRAC 

66 

TRAC 

67 

TRAC 

68 


x 
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FU( I ) = XF 1 1 (I ) 

TR AC 

69 


Gin ) = XGI ( I ) 

TRAC 

70 


Gin T ) = XGT I ( I ) 

TRAC 

71 


spc i e i ( n=xpciFii i ) 

TRAC 

7? 


SPCTE2I I )=XPCTE2( I > 

TRAC. 

73 


FORTH ) = XFORTU) 

TRAC 

7A 


ENTI I ) = XENT<n 

TRAC 

75 


ENTKI I = XENT1(II 

TRAC 

76 


TLOWl I )=XTLOW(I) 

TRAC 

77 


DELHI I »=XDELH(I) 

TRAC 

78 


XMWI It=XXMW(I 1 

TRAC 

79 


ICODEI I 1 = 1 1 CODE (I ) 

TRAC 

80 


PERCH ) = XPERC 1 1 ) 

TRAC 

81 


PERCH I) = XPERC1( I) 

TRAC 

82 


MLFRCI n = XMLFR( I ) 

TRAC 

83 


I F < ICODEI I ) * E Q* 1 ) G0T052 1 1 

TRAC 

RA 


cm =xcm 

TRAC 

85 

5211 

DO 590 

TRAC 

86 

590 

AAI I t J ) = X AA I 1 t J» 

TRAC 

87 

510 

YI I»=XYI I 1 

TRAC 

88 


RETURN 

TRAC 

89 


END 

TRAC 

90 
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SUBROUTINE MATI NV ( A ,N f B , M, NMA.X ) 


MATRIX INVERSION WITH ACCOMPANYING SOLUTION OF LINEAR EQUATIONS 
0 IMENS ION A(7»7J,B(7»1),IPI VOT (7), INDEX (7,2) 

EQUIVALENCE (IROW,JROW), ( I COLUM, JCOLUM 1 * ( AMAX , T , SWAP ) 

INITIALIZATION 

5 I SCAL£=0 

6 Rl=10. 0**18 

7 R 2= l • 0 /R l 

10 DETERM=1. 0 • 

15 DO 20 J=1,N 
20 IPIVOTI J) =0 
30 DO 550 1=1, N 

SEARCH FOR PT VOT ELEMENT 

AO AMA X=Q. 0 

45 DO 105 J = l » N 

50 IF ( IPI VOTI J)-l)60,105,60 

60 DO 100 K = 1,N 

70 IF ( IPI VO T(KJ-l) 80,100,740 

80 IF ( ABS(AMAXI-ABS(A(J,K)) 185,100,100 

85 I ROW= J 

90 I C 0LUM=K 

95 A MA X=A ( J , K ) 

100 CONTINUE 

105 CONTINUE 

IF C AMA XU! 0,106,110 

106 DE TER.M=0 . 0 
I SC ALE =9 
GO TO 740 


MATT 

I 

MATI 

2 

MAT I 

3 

MATI 

4 

MATI 

5 

MAT! 

6 

MATI 

,7 

MATI 

8 

MATI 

9 

MATI 

10 

MATI 

11 

MATI 

12 

MATI 

13 

MATI 

14 

MATI 

15 

MATI 

16 

MATI 

17 

MATI 

18 

MATT 

19 

MATI 

20 

MATI 

21 

MATI 

22 

MATI 

23 

MATI 

24 

MATI 

25 

MATI 

26 

MATI 

27 

MATT 

28 

MATI 

29 

MATT 

30 

MATI 

31 

MATI 

32 

MATI 

33 

MATI 

34 
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110 1 P I VOT(ICOLUM)=I PIV0T( IC0LUM1 ♦! 


130 

140 

1.50 

160 

170 

200 

205 

210 

220 

230 

250 

260 

270 

310 


1000 

1005 

1010 


1020 


103 0 
1040 


1050 


INTERCHANGE ROWS TO PUT PIVOT ELEMENT ON DIAGONAL 

IF ( IROW-IC0LUMI 140,260,140 
DE TER M=-QE TERM 
DO 200 L=1 , N 
SWAP=A ( IROW ,L ) 

A ( IROW,U = A! ICOLUM.Ll 
A! ICOLUM,L)=SWAP 
IF ! M ) 260, 260, 210 
DO 250 L=1 f M 
SWAP=B( IROWtL) 

8 ( IROW , L 1 =B ! ICOLUMtL) 

B( ICOLUM,L)=SWAP 
INDE X! I , l) = TROW 
INDEX! T,2J=IC0LUM 
PIVOT=A( ICOLUM, IC0LUM1 

SCALE THE DETERMINANT 

PI VOTT=PI VOT 

IF! A8S(DE TERM ) -R 111030 • 1010 * 1010 

DETERM=DETERM/R1 

ISCAIE=I SCALE+1 

IF! ABS! DETERM1-R1) 1060 , 102 0» 1 020 
0ETERM=DETERM/R1 
ISCALE=ISCALE+1 
GO TO 1060 

IF! ABS! DETERM )-R 2 ) 1 040, 1040, 1060 

DETFRM=DETERM*R1 

ISCALE=ISCALE-1 

IF! ABS! OF TFRM1-R2) 1050,1 050,1060 
DETERM=DETERM*R1 


MATI 

35 

MATI 

36 

MATI 

37 

MATI 

38 

MATI 

39 

MATI 

40 

MATI 

41 

MATI 

42 

MATI 

43 

MATI 

44 

MATI 

45 

MATT 

46 

MATI 

47 

MATI 

48 

MATI 

49 

MATI 

50 

MATI 

51 

MAT! 

52 

MATI 

53 

MATI 

54 

MATI 

55 

MATI 

56 

MATI 

57 

MATI 

58 

MATI 

59 

MATI 

60 

MATI 

61 

MATI 

62 

MATI 

63 

MATI 

64 

MATI 

65 

MATT 

66 

MATI 

67 

MATI 

68 


630 



o o o non 


I SCALE = I SCALE -1 

1060 IF ( A8SI PI VOTI J-R 1)1 090, 1070, l 070 
1070 PIV0TI=PIV0TI/R1 
I SC ALE= I SCALE + 1 

IF ( ABS( PI VOTI l-RU 320,1080,1080 
1080 PIV0TI=PIV0TI/R1 
I SCALE= ISCALE +1 
GO TO 320 

1090 IF ( ABS( PIVOT! )-R2 1 2000, 2000, 320 
2000 PTVOTl=PI VOTI *R1 
I SC ALE =1 SC ALE-1 

IFIABSIPIVOTI 1-R2I201 0,2010,320 
, 2010 PIVOTl=PIVOTI *R1 
T SCALE= ISCALE-1 
320 DETER^=DETERM*PI VOTI 

01 VIDE PIVOT ROW BY PIVOT ELEMENT 

330 A ( I C OL UM * I C OL UM 1 = 1.0 
340 DO 350 L=1 * N 

350 A ( ICOLUM, L)=At I COLUM,LI /PI VOT 
355 TF(M) 380,380,360 
360 DO 3 70 L = 1 » M 

370 B< ICOLUM,D=B< ICOLUM, L) /PIVOT 

REDUCE NON-PIVOT ROWS 

380 DO 550 L1=1,N 
390 I F < L 1— ICOLUM ) 400 ,550,400 
400 T=A< L 1, ICOLUM I 
420 A( LI, ICOLUM 1=0.0 
430 DO 450. L = l ,N 

450 A(Ll,L)=A(ll*L)-A( ICOLUM, LI *T 
455 I F ( M » 550,550,460 


MATT 

69 
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70 

MATI 

71 

MATI 

72 
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73 

MATI 

74 

MATI 

75 

MATI 

76 

MATT 

77 

MATI 

78 

MATI 

79 

MATI 

80 

MATI 

81 

MATT 

82 

MATI 

83 

MATI 

84 

MATI 

85 

MATI 

86 

MATI 

87 

MATI 

88 

MATI 

89 

MATT 

90 

MATI 

91 

MATI 

92 

MATI 

93 

MATT 

9A 

MA TT 

95 

MATI 

96 

MATT 

97 

MATI 

98 

MATT 

99 

MATI 

100 

MATI 

101 

MATI 

102 
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460 DO 500 L = 1*M 

500 B(LI*L>=B(L1,L)-B(IC0LUM,L)*T 
550 CONTINUE 
C 

c interchange columns 

600 DO 710 T=i,N 

c ' 

610 L=N+1-I 

620 IF I INDEX! L.l) -I NDE X(L,2 11630 *710 *630 
630 JRQ W= 1 NDE X! L* 1 1 
640 JC OL UM= I NDE X ( L * 2 1 
650 DO 705 K=1 * N 
. 660 SWAP=A! K, JR0W1 

670 A! K, JR0W1=A!K, JC0LUM1 
700 AIK, JCOLUM INSWAP 
705 CONTINUE 
710 CONTINUE 
740 RETURN 
END 


MAT I 
MAT! 
MAT I 
MATI 
MAT! 
MATI 
MATI 
MATI 
MATI 
MATI 
MATT 
MATI 
MATI 
MATI 
MATI 
MATI 
MATI 
MATI 
MATI 


\ 


103 

104 
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106 

107 

108 
1Q9 
110 
I'll 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
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CHEMICAL EQUILIBRIUM ANALYSIS NOMENCLATURE 

MAIN : 

AA(I, J) : Formula number. Gives the gram atoms of 

element J in Species I. 

AI. , ,GI : These are the seven empirical constants for 

the high temperature fit (1000°K-6000°K) for the free ener- 
gy functions. The first five constants (AI through El) are 
used for the heat capacity fit. 

All, . ,GII : These are the seven empirical constants for 

the low temperature fit (300°K-1000°K) for the free energy 
function. 

All. . .A66 : These are the six empirical constants for 

the Enthalpy fit of the constituent elements (300°K-1000°K) . 

B(J,1) : Is the vector formed from the right hand side 

of Equations in Table 4-1. 

BB (J) : Gram atoms of the constituent element J. 

BETA : Criteria for convergence. It varies if conver- 

gence has not been achieved after 100 iterations. 

C (I) : Defined by Equation (4-12) . 

CRIT : Initial criteria for convergence. 

PELT (I) : Difference between the values of Y(I) and the 

calculated value of X(I) (gram/moles) . 

DFDL : Is the gradient dF/dX defined by Equation (4-41) . 

DEBAR : Is the Siam of DELT(I) (gram/moles) . 

ENT (I) : Is the heat of formation of species I , 


( calor ies/gram-mole ) 
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ENT1 (I) : The enthalpy of each species I , (calories/ 

gram-mole) . 

ENTGAS : The total enthalpy of the gas mixture, 

(calories/gram-mole) . 

ENTRPY ; The total entropy of the gas mixture, 
(calories/gram-mole °K) . 

FY (I) : Defined by Equation (4-11) . 

FORT (I) : Is F°/RT. 

FSUM(I) : Is the sum of the first two terms of the 

right hand side of Equation (4-32) . 

GSUM2 : Is the total free energy of the system at 

equilibrium, (calories/gram-mole) . 

H: This variable is used for restricted equilibrium, 

and is the heat balance constraint (cal/gram-mole of po- 
lymer) . 

ICODE (I) : is a code used to identify whether a specie 

is a gas or a solid. If ICODE is zero, the species is a 
gas. If ICODE is one, the species is a solid. 

IPUNCH : If IPUNCH is one, punch output. Otherwise, 

IPUNCH is zero. 

JCODE : Is a code used to identify whether the re- 

ference state of the constituent elements are in the gas or 
in the solid state. 

KOUT : When KOUT is zero, trace species computations 

are bypassed. When KOUT is one, trace species are computed 
after convergence to equilibrium has been achieved. 

KCODE : When the system is an all gas system KCODE is 



635 


is zero. When there is a solid/ KCODE is one. This is 
used to adjust the size of the matrix that needs to be in- 
verted. 

MM : Is the number of elements. 

MAXNT : Number of iterations after which the criteria 

for convergence CRIT is adjusted. 

MLFRC(I) : Mole fraction of species I in the mixture. 

NA: Is the size of the R matrix. 

NC : Number of gas species read in. 

NN : Number of gas species remaining after trace 

species are eliminated. 

NQ : Is the total number of gas and solid species 

after trace species are eliminated. 

NS : Is the total number of gas and solid species read 

in. 

NT : Total number of iterations. 

NFREQ : Number of iterations after which the system is 

checked for trace species. 

P: Pressure of the system in atmosphere. 

PI ; The Lagrange Multipliers. 

R: Is the matrix formed from the coefficients of the 

Equations in Table 4-1. 

S (I) : Entropy of species I. 

SI. . .S6 : These are the six empirical constants for 

the enthalpy fit of the constituent elements (1000°K- 
6000°K) . 

SPECIE (I) : Specie identification number. 
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T: Temperature in °K. 

TLOW(I) : Maximum temperature of low temperature fit 

for species I. 

X(I) : Calculated value of the moles of species I. 

XMW(I) : Molecular weight of species I. 

Y (I) : Moles of Y (I) guessed; or improved values of 

Y(I), based on the calculated values of X(I). 

THERMO : Only those variables not previously defined 

will be mentioned in this section. This subroutine calcu- 
lates the thermodynamic properties of the gas-solid system. 

ENT1 (I) : Enthalpy of species I. (Calories/gram-mole) . 

CPDTl(J) : Sensible enthalpy gain by the constituent 

elements. (Calories/gram-mole) . 

H0LD1 : This subroutine stores the variables of the 

trace species in temporary location. 

IICODE (I) : Temporary location of ICODE(I). 

XAA(I,J) : Temporary storage for AA(I,J) . 

XA1 . . .XGI : Temporary storage location for AI...GI. 

XC (I) : Temporary storage location for C(I). 

XXMW (I) : Temporary storage location for XMW(I) . 

XFORT(I) : Temporary location for FORT (I) . 

XPCIEl (I) : Temporary storage location for SPCIEl(I). 

TRACE : This subroutine computes the value of the trace 

species once convergence to the minimum free energy has 
been achieved. 

YTRACE (I) : Value of the moles of Y(I) calculated for 



the trace species 
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INPUT FORMAT FOR THE CHEMICAL EQUILIBRIUM PROGRAM 

This program calculates the equilibrium composition of 
any system at specified temperatures and pressures. Multi- 
ple cases can be run with the same data base by specifying 
the initial temperature at which equilibrium composition is 
desired, the temperature increment and the final temperature. 


CARD 1 : FORMAT (5F10.4,3I6) COLUMNS ; 

XT = Initial Temperature (°K) . 1-10 

TMAX = Final Temperature (°K) . 11-20 

TINC =» Temperature Increment (°K) 21-30 

CRIT * Convergence Tolerance (0.001 

moles is recommended) . 31-40 

TZERO «= Reference Temperature (298.16°K) 41-50 

NC = Number of Gas Components 51-56 

MM = Number of Elements 57-62 

NNS = Number of Solid Species 63-68 

CARD 2: FORMAT (16, F10.5, 13) 


IHCODE = 1 (Restrictive Equilibrium Option) 
otherwise, leave blank. 6 

H = Enthalpy for Restrictive Equili- 
brium Option. 7-16 

IPUNCH = 1) Punch Mole Fraction and 
species name, otherwise, 
leave blank. 19 


CARD 3 : Reads the empirical constants for the heat ca- 

pacity of the reference elements for the temperature range 
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1000°K to 6000°K. These are stored in the constants SI 
through S6. If the reference element is a solid, JCODE 
should be set to one. CARD 3 is read MM number of times. 


CARD 3: 

FORMAT (6E10.4, 13) 

COLUMNS 

S1(J) -A 


1-10 

S2(J) = 

Empirical constants for the 

11-20 

S3 ( J) = 

heat capacity of the refe- 

11-20 

S4(J) - \ 
/ 

> rence elements for the 

21-30 

S5(J) « 

temperature range 1000°K 

31-40 

S6(J) 

to 6000°K. 

51-60 

JCODE ( J) 

» Zero if reference element is 
a gas, one if it is a solid 



or a liquid. 

66 

CARD 4: 

FORMAT (6E10.4) 


All ( J) =»' 

\ 

1-10 

A22 ( J) = 

Empirical constants for the 

11-20 

A33 ( J) = 

^ heat capacity of the refe- 

21-30 

A44 ( J) = 

rence elements for the 

31-40 

A55 ( J) - 

temperature range 298°K to 

41-50 

A66 (J) ■ , 

1000°K. 

51-60 

CARD 4, as with CARD 3, is read in MM number of t; 

CARD 5: 

FORMAT (lOx, 3E10 . 4, 2x,2A3, 14) 


TLOW(I) - 

Maximum temperature of low tem- 



perature fit (usually 1000°K) 

11-20 

YMW(I) = Molecular weight of species 

21-30 
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COLUMNS : 

Y(I) = Mole fraction of species 

31-40 

SPCIEl(I) 

= Alphameric representation 


SPCIE2 (I) 

= of chemical species 

41-43 

ICODE(I) 

= Zero for a gas, one for a 
solid or liquid species. 

51 


CARD 6: 

FORMAT (7E10.4) 


AX (I) 

j 

1-10 

BI (I) «= J 

' Empirical constants for the 

11-20 

Cl (I) - j 

free energy fit of the che- 

21-30 

di(i) = ' 

i 

y mical species for the 

31-40 

El (I) = 

temperature range of 10 00°K 

41-50 

PI(I) * 

to 6000°K. 

51-60 

GI(I) = y 


61-70 

CARD 7: 

FORMAT (7E10.4) 


All (I) = 


1-10 

BII(I) = 

/ Empirical constants for the 

11-20 

CII(I) =| 

! free energy fit of the che- 

21-30 

DII(I) = 

V mical species for the 

31-40 

Eli (I) = 

temperature range of 298°K to 

41-50 

PII(I) = 

1000 °K. 

51-60 

GII(I) * 


61-70 

CARD 8: 

FORMAT (8E10.4) 


AAU,1) = 

Formula number of the 

1-10 

AA(I, 2) = 

s Ith species (continued) . 

11-20 
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COLUMNS 

AA(1, 3) = 

Formula number for the 

21-30 

AA (1,4) = 

Ith species. 

31-40 

AA ( I ,M) = 

CARDS 5 , 6, 7 and 8 are read. 
CARD 9: FORMAT (2F14.8) 

71-80 

RR = 1.98726 

1-14 

p *, pressure in atmospheres. 
CARD 10: FORMAT (16) 

15-28 


NFREQ = Maximum number of iterations 


1-6 



TABLE E-2 . Typical Chemical Equilibrium Input Data 


10 2 4 

1 2 

5500. 

2160. 

500. 

.8 0.3500000 .00000100 

.500006 9 

. 50000E5 

•4805555E-12 0.90 

3000. OEO 1073.00 

2.E-4 



1.363252E01.85605E-3-7.6675E-7.151043E-9-1.139E-14-6.49672E2 1 

- .7124426 0 7.34065F-3-5. 52626-6 1.51 400E-9-2.38 2 E-14-6.80533E1 
3 . 043690E 0 6. I 1 871E-4- 7. 3994E-9-2 .03 3 E-l 12 . 4594E-1 5-8 . 54910E2 0 

2. 84608 5E 04. 19321 E-3- 9.611 9E- 69.51 227E-9-3. 309 E-l 2-9. 67253E2 
3 • 59761 3E 07 . 8 1456E-4-2 . 2387E-74. 2490 E-l 1—3 .346E-15-1. 19279E3 0 

3. 71 8995E0-2. 5167E-38. 58374E-6-8.2999E-92 .7082E-12-1 . 10577E3 
2.220 79 2E01.74309E- 3-1 • 2008E-65 • 084 IE -10-8 • 169 E-l 4— 7 .4966 1 £2 1 

4.245929E01. I 1 866E-2- 1 . 9539E-5 1 . 61 09E-08-4.99 1 E-12 -4 .80666E2 

1000. 00E0 15 • 0350E0 .30420E-4 CH3 0 

2.802766E06;25045E-3-2.2892E-63. 899 3E- 10—2 .528E-141. 578749 E45 .6841 17E0 
3. 39950 5E 04.26783E- 32 . 0332 7E- 7-1 . 1 55 E-094. 1288E-1 31 . 564979E42 .703747E0 
l • OOOOOEO 3 . C0000E 0 

1000. 00E0 1.6043E01 .38328E-3 CH4 0 

l • 18Q00E0 1. 0950E-2-4.0620E-6 7. 137E-10-4.749E-14-9.8556E03 1.2506E01 
4. 24976 8E 0-6. 91276-3 3 . 1602E- 5-2 . 97 1 5E-89 , 5 103E-1 2-1 .0 1 866E4-9. 1755E- 1 
1. OOOOOEO 4.0000060 

1000.0060 2 . 6C38E01 .17288E-2 C2H2 0 

4.4966600 5. 2698E-3-1. 840E-063 . 1054E - 10-2 .000 E-142 . 5637E004-3 . 1448 IE0 
7.90333E-1 2. 3466E-2— 3 • 5542E— 5 2 . 79 51E -8-8 .448 E-l 2 2.6255E04 1.4005E01 
2. OOOOOEO 2. OOOOOEO 

1000. OOEO 2.01600EC 2.00385E0 H2 0 

3.04369E00 6.1187E-4 -7.399E-9 -2.03E-11 2 .459 E-l 5-8 . 5491E02 -1.648E00 
2 . 846085E04. 1932E-03-9.6119E-69.5123E-09-3. 30 9 E-l 2— 9 .67254E2 -1.4118E0 
0.E0 2.E0 

1000. OOEO 1 • 00800E0 .47481E-2 H 0 

2 • 500000E 0 0. 00 00 OF 0 0. OOOOOEO 0. OOOOOEO 0 .OOOOOE02 . 547050E4-4. 600 IE-1 
2 • 5C9000E 0 0. G0Q00E 0 0. OOOOOEO 0.0000060 0 .00000602 . 547050E4-4. 6001E- 1 
O.EO l.EO 

100G. OOEO 18.0160E0 .10954E-3 H20 0 


OATA 

1 

DATA 

2 

DATA 

3 

DATA 

4 

DATA 

5 

DATA 

6 

DATA 

7 

OATA 

8 

DATA 

9 

OATA 

10 

OATA 

11 

DATA 

12 

DATA 

13 

DATA 

14 

DATA 

15 

OATA 

16 

DATA 

17 

DATA 

18 

DATA 

19 

OATA 

20 

OATA 

21 

DATA 

22 

DATA 

23 

OATA 

24 

OATA 

25 

DATA 

26 

DATA 

27 

DATA 

28 

OATA 

29 

DATA 

30 

DATA 

31 

DATA 

32 

DATA 

33 

DATA 

34 
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2.67075E0 3.0317E-3 -8.535E-7 1 . 179E-10-6. 197E-1 5-2 .9889E04 6 o 88383E0 
4. 1 56 5 OE 00- 1 . 7244E- 35*. 69 82E- 06-4 .5 930E-91 .42346-12— 3 .02 888 E4— 6 o 86 16E-1 

0. EO 2.0EC l.EO 

1000. OOEO 2.8011E01 1.97510E0 CO 0 
2.9512E00 1.5526E-3-6.1911E-7 1 . 135E-10-7 o788E-15-l .4232E04 6 o 5314E00 
3 • 787 133E0-2. 171E-035. 07573E-6-3.473 8E-97 . 7217E-13-1 <>43635E4 2.63355E0 

1. EO O.EO l.OEO 

1000. OOEO 44.011E0 .23651E-4 C02 0 

4.4129E003. 1923E-03 -1.298E-6 2.415E-10-1 .674E-14-4.8944E04-7.2876E-1 
2. 170100EO 1.0378E-2-1 . 0734E— 56. 34592E— 9-1 .628E-12-4.83526E4 1.06644E1 
l.EO O.EO 2 « OEO 

1000. OOEO 29.09800 .17321E-3 SIH 0 

3.067823E01.50816E-3-5.8923E-7. 108543E-9-7.476E-154.402100E45.916108EO 
4. 23657 8E 0-4. 3652 E- 39. 69889E— 6-7. 5517E— 92 • 0693E— 124. 38 5927 E46 .06156E-1 
O.OEO „ l.EO O.EO l.EO ' v • . 

1000. OOEO 44.0900EO .306063E0 SIO 0 

3.72951 6E 08. 63359E-4-3 • 5894E-76 .8213E— 11-4.784E-15-1 • 20083E43 .747283E0 
3. 349588E 0- 2 . 6538E-45. 48140E-6-6. 879E-092 . 6 1 1 1 E-12-1 . 1797 1 E46 .242 18360 
O.EO O.EO l.EO l.EO 

1000. OOEO 28.090060 1.03944E0 SI 1 

2.220792E01.74309E-3-1.2008E-65.0841E-10-8.169E-14-7 .49661E2-1 .09166E1 
4 . 245929E 0 1 • 1 1 866E-2- 1 . 9539E- 51 • 61 09E-08-4 .99 1 E— 1 2 -4. 80666E2-2. 75544E0 
O.EO O.EO O.EO l.EO 

1000.0060 12.000EO 2.32170E0 C l 

1. 3632 5E 001. 85605E-3-7. 6675E-71 . 5104E-10-1 . 139E-14-6.4967E02-7.9890E00 
-7 . 1244E-17. 34065E- 3- 5. 5262E-6 1 . 5 14E-09-2 . 382 E-14-6 .8053 3 El 2.79326E0 
l.EO O.EO O.EO O.EO 
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39 
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45 
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46 
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TABLE E~5<> Typical Results From the Chemical Equilibrium Program 




FO/R T 


INITIAL Y ( I > 

1 

CH3 

-0 .2125516E 

02 

0.9999996E-01 

2 

CH4 

-0 . 33902 63 E 

02 

0. 9999996E— 01 

3 

C2H 

-0 . 16200 10E 

01 

0. 9999996E-01 

4 

C2H2 

-0 . 17952 41 E 

02 

0. 9999996E-01 

5 

H2 

-0.19465 87E 

02 

0. 5000000E 00 

6 

H 

-0.3306983E 

01 

0. 1 817857E 01 

7 

H20 

-0.4199399E 

02 

0. 5000000E-01 

8 

DH 

-0. 2355809E 

02 

0. 9999996E-01 

9 

CO 

-0 .3433722F 

02 

0. 1 78 1 2 50 E 01 

10 

C02 

-0.5534689E 

02 

0. 9999996E-01 

11 

C2H4 

-0 . 3240 7 1 4E 

02 

0. 9999997E— 07 

12 

SIH 

-0.5337708E 

01 

0. 9999997E-07 

13 

SIH4 

-0.31072 19E 

02 

0. 99999 9 7 E- 07 

1* 

SIO 

-0 . 3503526E 

02 

0. 5000000E-01 

15 

S 102 ' 

-0.5489357E 

02 

0. 5000000E-01 

16 

SI 

-0. 5333599E 

01 

0. 1 2 45 6 73 E 01 

17 

C 

-0 .2770977E 

01 

0. 1819402E 01 


NT = NO. 

ITERATIONS REQUIRED = 

15 U=X/Y = 0.9999992 

BB ( J ) = 

4.30065060 



Bfi ( J 1 = 

4.01785469 



8 8 ( J ) = 

2.28124809 



BB ( J ) = 

1.34567261 



BETA = 

0.1 3 58E-0 3 

TOTAL 

NO. OF MOLES= 7.6533 H= 0 


FREE ENERGY F ( Y ) OF THE SYSTEM AT EQUILIBRIUM = -0.13351440E 03 
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PRESSURE= 0. 10000.E 01 


TEMP = G.20000E 04 


I 


Y(I) 

MOLE FRACTION 

MASS FRACTION 

1 

H2 

0.2003S45E OL 

0. 4668565E 00 

.0. 5539759E-01 

2 

CO 

0.1975098E 01 

0.4601589E 00 

0 .75 867 06 E 00 

3 

SIO 

0. 3060627E 00 

0. 7130653 E— 01 

0.18504886 00 

4 

H 

0. 4748080E-02 

0. 1106209E-02 

0.6563182E-04 

5 

C2H2 

0. 1 728777E-02 

0. 40277 09E-03 

0.617 2804 E— 03 

6 

CH4 

0. 3832877E-03 

0. 8929 848 E- 04 

0 . 843 23 10 E-04 

7 

S I.H 

0. 1732134E-03 

0. 403553 l E-04 • 

0.691 1633E-04 

8 

H20 

0. 1095384E-03 

0. 2552029E-04 

0. 27062 04E-04 

9 

CH3 

0.3042049E-04 

0. 708 7376 E- 05 

'• 0. 627 1996E-05 

10. 

- C02 

0. 2365047E-04 

0. 5510093E-05 

0. 1427371E-04 

11 

C2H4 

0. 537792 2E- 05 

0. 12 52949 E-05 

0. 2 06 8926 E— 05 

12 

C2H • 

0. 34437696-05 

0. {30233046-06 

0. 1182037E-05 

13 

SIH4 

0. 1743203E-05 

0. 40613206-06 

0.767 8682 E— 06 

14 

S 1 02 

0. 1158856E-G5 

0. 2699907E-06 < 

0.95492 12 E-06 

15 

OH 

0. 2662728E-07 

0. 62036286-08 

0.6210342E-08 

16 

SI 

0.1 C39440E 01 

0.2421690E 00 

0.4003937E 00 

17 

c 

0.2321698E 01 

0.54C9100E 00 

0.3820527E 00 





MASS FRACTION 





HEAT OF FORMATION 

OF THE MIXTURE 

ENTROPY 


1 

H2 

0.0 

0.31 079456-01 

0. 7275468E 

02 

2 

' CO . 

-0 . 28 42 8 1.3 E 05 

0.42563336 GO 

0 . 7500009E 

02 



3 

SIO 

-0. 2500515E 

05 

0. 10381 71 E 00 

0 . 7741 382 E 

02 

4 

H 

0.54222 50E 

05 

C.3682109E-04 

0.9031674E 

02 

5 

C2H2 

0.5257357E 

05 

0 .34631 00E-03 

0.6054889E 

02 

6 

CH4 

-0.21 64932E 

05 

0.4730739E-04 

0 . 55 37646E 

02 

7 

S IH 

0. 8607963E 

05 

0.3877601 E-04 

0 . 833609 5E 

02 

8 

H20 

-0.60 12953E 

05 

0. 1518250E-04 

0. 7891264E 

02 

9 

CH3 

0.3051525E 

05 

0.351 8747E-05 

0. 8537036E 

02 

10 

C02 

-0.94 84888E 

05 

0. 8007915 E— 05 

0 . 9794763E 

02 

11 

C2H4 

0. 8626629E 

04 

0.1 160720E-05 

O'. U68788E 

03 

12 

C2H 

0. 1 145694E 

06 

0. 6631526E-06 

0.901 568 8E 

02 

13 

SIH4 

0 . 5439773E 

04 

0. 4307934 E- 06 

0 . 1118265E 

03 

14 

S 1 02 

-0. 83 50925E 

05 

0.53573 54E-06 

0.96 16628E 

02 

15 

OH 

0.87 56605E 

04 

0.34841 64E-08 

0. 1174121E 

03 

16 

SI 

0.0 


0 . 2246310E 00 

0. 1605104E 

02 

17 

c 

0.0 


0 . 2 14341 IE 00 

0. 9754942E 

01 


ENTHALPY OF GAS M I XTUR E( C A L/GM-MQLE = 0.4021755E 03 


MOLECULAR WEIGHT OF GAS M I X= 0.16989594E 02 ENTROPY! C AL/ ! GM-MOLF-OK ) )= 


0.436349E 01 
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APPENDIX F 


METHOD FOR ESTIMATING 
PYROLYSIS PRODUCT COMPOSITION 

Estimating the Pyrolysis Composition for a 40 Percent by 
Weight Nylon/ 60 Percent by Weight Phenolic Resin 

The most direct method of determining the products of 
degradation is the analysis by pyrolysis gas chromatogra- 
phy. This has been done by Sykes (1, 2) in which the hot 
degradation products were injected directly into the gas 
chromatograph. However, even with this procedure certain 
amount of condensation of heavy molecular weight species 
occur which remain unidentified and a possible source of 
error. The method has, however, reduced the total amount 
of unidentified material. Sykes has reported typical pyro- 
lysis gas compositions for eighty-three percent of the 
total decomposition products evolved during the thermal 
degradation of nylon-phenolic resin composites (1, 2) . The 
remaining seventeen percent was reported as an unidentified 
dark, tarry substance. This data is presented in Table F-l. 
The data of Friedman (5) for phenolic resin is presented in 
Table F-2 and there are fifteen percent unidentified mate- 
rials. In addition, the data of Friedman (5) for nylon 
phenolic resin is presented in Table F-3. April (3) estima- 
ted a pyrolysis gas composition for his experimental work, 
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TABLE F-ls Pyrolysis product composition resulting 

from the degradation of a 40 percent 
nylon, 60 percent by weight phenolic 
resin, as reported by Sykes (2) . 


SPECIES 

MASS FRACTION 

Phenol 

0.118 

Methylphenol 

0.064 

Dimethylphenol 

0.051 

Trimethylphenol 

0.041 

Benzene 

0.003 

Toluene 

0.001 

Cyclopentanone 

0.029 

Hydrogen 

0.010 

Methane 

0.010 

Carbon Monoxide 

0.021 

Carbon Dioxide 

0.067 

Water 

0.062 

Ammonia 

0.002 

Unidentified 

0.173 

Carbon Residue 

0.340 
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TABLE F-3 : Pyrolysis product composition resulting 

from the degradation of nylon phenolic 
resin, as reported by Friedman (5) . 


SPECIES : 

Hydrogen 

Methane 

Ammonia 

Water 

Acetylene 

Hydrogen Cyanide 

Carbon Monoxide 

Nitrogen 

Ethylene 

Ethane 

Carbon Dioxide 

Diacetylene 

Acetone 

Benzene 

Toluene 

Xylene 

Isopropanol 

Propane 

Carbon Residue 


MASS FRACTION 
0.011 
0.015 
0.016 
0.064 
0.066 
0.022 
0.071 
0.001 
0.091 
0.001 
0.023 
0.011 
0.010 
0.016 
0.011 
0.007 
0.018 
0.015 


0.529 



TABLE F-2 


Pyrolysis product composition resulting 
from the degradation of phenolic resin , 
as reported by Friedman (5) . 


SPECIES 

MASS FRACTION 

Carbon Dioxide 

0.019 

Carbon Monoxide 

0.042 

Benzene 

0.004 

Toluene 

0.009 

Phenol 

0.181 

Methylphenol 

0.060 

Methane 

0.043 

Water 

0.114 

Hydrogen 

0.027 

Unidentified 

0.150 


Carbon Residue 


0.350 
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based on a comparison of the experimental and calculated 
heat of pyrolysis. His approach was, knowing the heat of 
pyrolysis, or heat of degradation, the heat of formation 
of these species and the reported analytically determined 
composition, estimate a new composition in such a way that 
the experimental and calculated values of the heat of 
pyrolysis agree within a few percent. His results are 
shown in Table F-4. 

Since the compositions reported by Sykes (1, 2) and 
Friedman (5) have unidentified products and since the 
composition of April (3) does not agree with the elemental 
balance, a new composition based on the elemental balance 
constraints was arrived at in this research. The elemental 
composition for a 40 percent nylon, 60 percent by weight 
phenolic resin is shown in Table F-5. It is shown that for 
every 100 grams of polymer there are 73.80 grams of carbon, 
7.36 grams of hydrogen, 3.95 grams of nytrogen and 14.89 
grams of oxygen. The procedure is then to distribute the 
gram of these elements to each of the identified species in 
such a way that the elemental balance requirements are 
satisfied. A more detailed presentation is given by 
Hacker, et. al. (6) . 

Distribution of Oxygen Element 

To accomplish the distribution of the oxygen element, 
an initial estimate based on the data of Table F-2 through 
Table F-4 is used. Table F-6 shows the initial estimate 



TABLE F-4 


Estimated pyrolysis gas composition of 
April (3) . 


SPECIES 

MASS FRACTION 

Hydrogen 

0.036 

Water 

0.478 

Methane 

0.058 

Phenol 

0.241 

Carbon Monoxide 

0.057 

Dime thy lphenol 

0.087 

Carbon Dioxide 

0.025 

Toluene 

0.012 


Benzene 


0.006 
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TABLE F-5 : 

Elemental composition of a 40 percent nylon, 
60 percent by weight phenolic resin 
composite. 

ELEMENT 

MOLES ELEMENT 
M6£e 6? T5&5MER 

MASS ELEMENT 
100 GRAMS OF POLYMER 

C 

8.19 

73.80 

H 

9.87 

7.36 

N 

0.376 

3.95 

0 

1.240 

14.89 




TABLE F-6 : Initial and final estimates of the composi- 

tion of the oxygen containing species. 


Phenol 

Water 

Carbon Dioxide 


INITIAL ESTIMATE 



7.5 

5 


PINAL ESTIMATE 

(%) 

23.13 

7.20 

4.61 


Carbon Monoxide 


5 


4.66 
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and the adjusted final estimate which satisfies the 
elemental balance on oxygen. The dimethyl phenol, and 
trimethyl phenol were lumped into phenol for lack of 
thermodynamic data on these species. The total number of 
grams distributed among these species is 14.89. 

Distribution of Hydrogen 

The number of grams of hydrogen to be distributed 
among the hydrogen containing species is 7.36. However, 
only 4.80 grams are available since 2.86 grams were 
already distributed in phenol and water. The results of 
this distribution is shown in Table F-7. 

Distribution of Nitrogen 

The only nitrogen containing species is Nitrogen (N 2 ) 
and the grams are 3.95 as shown in Table F-5. 

Distribution of Carbon 

The total grams of carbon available is 73.80. Of these, 
34.50 have been distributed among some of the oxygen and 
hydrogen containing species , which are also carbon contain- 
ing species. Hence, this leaves 39.30 grams of carbon 
which are to be assigned to the carbon species. The 
composition of all the species is presented in Table F-8. 
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TABLE P-7 s 

Initial and final estimate 
of the hydrogen containing 

of the composition 
species . 


INITIAL ESTIMATE 

FINAL ESTIMATE 


(%) 

(%) 

Methane 

3 

3.87 

Acetylene 

3 

3.89 

Ethylene 

3 

3.89 

Ethane 

0.5 

0.65 

Benzene 

2 

2.58 

Hydrogen 

2 

2.58 
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TABLE F-8 : Estimate of the representative composition of 

the pyrolysis products for a 40 percent nylon, 
60 percent by weight phenolic resin ablative 
composite. 


Species 

Mass Percent 

Mole Percent 

h 2 

2.57 

20.92 

ch 4 

3.86 

3.90 

c 2«2 

3.88 

2.41 

C 2 h 4 

3.88 

2.24 

c 2«6 

0.64 

.35 

C6« 6 

2.57 

.53 

c 6 h 6 oh 

23.10 

3.97 

CO 

4.65 

2.40 

C°2 

4 .60 

1.69 

h 2° 

7.29 

6.45 

n 2 

3.95 

2.20 

C (solid) 

39.01 

52.94 

Element 

Elemental Composition 

(mass percent) 

C 

73.80 


H 

7.36 


0 

3.95 


N 

14.89 ' 


Total 

100. 0 6 
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APPENDIX G 


RESTRICTIVE EQUILIBRIUM ANALYSIS 

In Chapter IV the equations for the chemical equili- 
brium analysis were developed. The analysis developed in 
Chapter IV consists of finding the equilibrium composition 
of a multicomponent, polyphase system by minimizing the 
free energy. 

In reference (1) a method developed by del Valle and 
Pike was proposed whereby a restricted equilibrium state is 
defined. This equilibrium state is defined by adding to the 
free energy minimization algorithm an additional constraint; 
this constraint is in the nature of an energy balance 
constraint. 

This constraint adds one extra equation to the free 
energy minimization technique. This technique was implemen- 
ted at the suggestion of Swann from NASA (2) . The reason for 
his suggestion was that at low temperatures the equilibrium 
composition of the degradation products of nylon-phenolic 
resins are not in agreement with experimentally determined 
values. In trying to improve the agreement the approach 
briefly described in this appendix was proposed. Therefore, 
it was developed for heuristic reasons and not for its 
theoretical value. 

Heat Balance Constraint 

The heat of pyrolysis of a degrading plastic can be 
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computed using the following equation (3) 


AH 


pyr 


Z 

3-1 


T 

q F 

Z (x AH f ± + ( x . C 

i-1 p,i f/1 J PfL P ' 


dT> - 


298 K 


* x r,j AH f ^j + 


I 

J 


X r,j C P,j dT} 


(G-l) 


298°K 


where the subscript p and r denote products and reactants 
respectively, q the total number of species present in the 
pyrolysis products and 1 the total number of components 
in the ablative composite. For nylon-phenolic resin com- 
posites, the temperature, T r , where the degradation starts, 
is approximately 300°C, and the final temperature is 
approximately 1000°C. Pyrolysis products are generated 
over this temperature range and is the appropriate 
average temperature which gives the correct energy 
associated with the pyrolysis products. It was determined 
to be 700°C as a weighted average based on the mass loss 

rate (3). Rearranging Equation G-l gives, 


AH 


pyr 


1 

+Z {H 

j-1 


4 AH <r 4 + 

r, j f,j 


/ 


*r.i S.j dT > 


q 

- z { . ah^ 

i— i s> ' i 


l,i + 


298°K 

T 

S 

298°K 


\.i c P,i dT) 


(Gt2) 
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The left hand side of Equation (G-2) is known from 
experimentally determined values. Lets define b m+ ^ as 
the left hemd side, and let's drop the subscript p on the 
X's since we are going to deal only with the products. 

T 

b m+l 

298°K 


q 

Z { 
i=l 


AH f,i + 



Xj , dT> 


E i i 


(G-3) 


Notice that the X^s are unknown. However, the right 
hand side of the equation which is unknown must satisfy 
the left hand side which is known. Equation (G-3) can be 
expanded to the form below: 

b ra+l “ 4B f,i + 


f 


X C . dT} + 

i 


298°K 


1 

Z {Xi ah h ± + 

i=n+l 3 ' 1 



x 

i 



dT) 


(G-4) 


Note that Equation (G-4) has been written in the same 
form as the material balance expression shown in Equation 
(4-1) . This simplified considered ly the final form of the 
equations to be solved. 


In addition, define as: 
T 

P 

Cp.i dT 

298°K 


H i= “f,i + 


A 

s 
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This is done to avoid carrying the integral term in 
the derivation; and the resulting equation is: 

1 


m+1 


n 

£ 

i=l 


H.x 


i x i 


£ 

i=n+l 


H i*i 


(G-5) 


Lagrange Multiplier Formulation and Minimization 

To form the augmented function , the additional cons- 
traint, Equation (G-5) is added to Equation (4-25) and 
this results: 


m 1 

G(X) - Q (X) + £ H (b. - £ a ±i x, ) + 
j«l j 3 i»l J 1 


1 

^m+1 (km+l j* x i H i^ 

Following a similar procedure to that developed in 
Chapter IV the resulting set of equations to be solved is 
as follows: 

m 1 n 

£ r-; v U. + biu + £ a, .x. = b k + £ a. f t (Y) 
j=l 3 K i= n +l ^ 1 i«=l ik X 

k*=l...m (G-7) 


m 

£ 

j=l 


. •• « 4 

Dk 3 


b'u 

k 


1 

£ 

i=n+l 


a ij x i 


- b. 


n 

£ 

i=l 


a 


ik i 


fi (Y) 


k ** m+1 


(G-8) 
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ra+1 n 

E b.f . - Z f (Y) (G-9) 

j=l 33 i=l i 


m+1 

Z 

j=l 


a 1 . = {£ }. 

ij j RT 


i=n+l. . .1 


(G-10) 


It should be noted that Equations (G-7) and (G-8) have 
the same form. However, they are shown to emphasize the 
difference between the a., 's. The a., 's for k<m are the 
formula numbers as defined in Chapter IV. But a^ m+ ^ *= H^. 


Comparison of Results Among Equilibrium, Restricted 
Equilibrium Analysis and Experimental Results 

The chemical composition of the pyrolysis products 
resulting from the degradation of a 40 percent nylon, 60 
percent phenolic resin ablative composite and computed by 
a restricted equilibrium analysis is presented in this 
section. The computations have been done for two decom- 
position temperatures because of the uncertainty involved 
in the properties to calculate the average temperatures. 

In addition two different energy constraints were used 
because of uncertainties in the heat of pyrolysis. The 
assumed average temperatures were 600° and 700®C and the 
energy constraints were -17,000 and -29,000 calories/gram- 
mole of polymer which correspond to -228 and -390 BTU/lb of 
composite. The results are presented in Table G-l and 
Table G-2 . 

In Table G-l a comparison of restrictive equilibrium 
with the experimental data of Sykes (4, 5) is given for two 



TABLE 6-1 s 

Comparison of Restricted Equilibrium Analysis compositions with 
the Experimental Data of Sykes (4,5) for a 40% Nylon, 60% 
Phenolic Resin Composite at a Temperature of 700 & c and .1 atm. 

Species 

Restricted Equilibrium 
Mass Fraction for 
H * -29,999 cal/mole 
of polymer 

Restricted Equilibrium 
Mass Fraction for 
H =-17,000 cal/mole 
of polymer 

Experimental 
Mass Fraction 

Phenol 

10” 13 

10“ 13 

0.118 

Methyl Phenol 

- 

- 

0.064 

Dimethyl-, Phenol 

- 

- 

0.051 

Trimethyl Phenol 

- 

- 

0.041 

Benzene 

10 ”J-Z 

10~ 17 

0.003 

Toluene 

10“ 13 

10-13 

0.001 

Cyclopentanone 

- 

- 

0.029 

Methane 

0.025 

0.024 

0.010 

Hydrogen 

0.065 

0.066 

0.010 

Carbon Monoxide 

0.205 

0.210 

0.021 

Carbon Dioxide 

0.014 

0.012 

0.067 

Water 

0.021 

0.019 

0.062 

NH, 

10”4 

10-4 

0.002 

N 2 

0.039 

0.038 

mm 

Unidentified 

- 

- 

0.181 

Carbon 

0.631 

0.630 

0.350 


cr> 
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energy constraints (H = -17,000 and -29,000 cal/mole of 
polymer) at a temperature of 700°C. The results show an 
order of magnitude agreement with the low molecular weight 
species identified by Sykes (4, 5). These are methane, 
hydrogen, carbon monoxide, carbon dioxide, wate^ and ammo- 
nia. The agreement with the high molecular weight species, 
phenol, toluene, benzine, etc., was rather poor. The 
change in the energy constraint, H, from -17,000 to -29,000 
cal/mole of polymer has different and opposite effects in 
several of the species. For example, an increase in the 
value of H had the effect of decreasing the amount of 
hydrogen, carbon and carbon monoxide, while increasing the 
concentrations of carbon dioxide and water. It should be 
noted that the mass fraction of unidentified species plus 
that of carbon makes up 0.521 of the total mass fraction 
of the experimental composition, while the restricted equi- 
librium predicts a mass fraction of 0.634 carbon. It 
should be further noticed that the mass of nitrogen makes 
up about four percent of the mixture. No nitrogen was 
reported in the experimental results (4, 5). 

In Table G-2 a similar comparison is made, but the 
decomposition zone temperature is taken to be 600°C. Again 
an order of magnitude agreement is observed among the 
composition of the lower molecular weight species. Changing 
H affects the composition in the same fashion as was for 
the 700°C case. 



TABLE G-2: Comparison of Restricted Equilibrium Analysis Compositions with 


the Experimental Data of Sykes (4,5) for a 40% Nylon, 60% 
Phenolic Resin Composite at a Temperature of 600°C and .1 atm. 


Species 

Restricted Equilibrium 
Mass Fraction for 
H = -29,000 cal/mole 
of polymer 

Restricted Equilibrium 
Mass Fraction for 
H = -17,000 cal/mole 
of polymer 

Experimental 
Mass Fraction 

Phenol 

10 - 1.3 

10" 13 

0.118 

Methyl Phenol 

- 

- 

0.064 

Dimethyl Phenol 

- 

- ■ 

0.051 

Trimethyl Phenol 

10-13 

10-13 

0.041 

Benzene 

10-13 

10** 13 

0.003 

Toluene 

10-13 

10“13 

0.001 

Cyclopentanone 

- 

- . 

0.029 

Methane 

0.039 

0.036 

0.010 

Hydrogen 

0.060 

0.061 

0.010 

Carbon 

0.160 

0.167 

0.021 

Carbon Dioxide 

0.027 

0.024 

0.067 

Water 

0.038 

0.036 

0.062 

NH3 

io-4 

10“* 

0.002 

n 2 

.040 

.040 

- 

Unidentified 

- 


0.181 

Carbon 

0.635 

0.635 

0.340 

TOTAL 

1.000 

1.000 

1.000 


666 
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In general, restricted equilibrium provided an order 
of magnitude agreement for the composition of low molecular 
weight compound. It failed to give any agreement with the 
higher molecular weight component. 

In table G-3 a comparison of restricted equilibrium 
with the general equilibrium analysis is given. It is 
shown that the compositions are within an order of magni^ 
tude of each other. The only mass fraction that is the 
same is that of nitrogen, since it is practically an inert, 
and that of carbon which agrees within one percent. 
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TABLE G-3: Comparison ot -Restricted Equilibrium Analysis 

With the General Equilibrium Analysis for a 
40% Nylon, 60% Phenolic Resin Composite at 
700°C and 1 atmosphere. 


Restricted Equilibrium 
Mass Fraction for 

H = -29,000 cal/mole Equilibrium 


Species 

of polymer 

Composition 

Phenol 

10" 13 

10” 18 

Benzene 

io- 1 ? 

10“ 13 

Toluene 

IQ" 13 

10” 13 

Methane 

0.025 

0.043 

Hydrogen 

0.065 

0.059 

Carbon Monoxide 

0.205 

0.150 

Carbon Dioxide 

0.014 

0.031 

Water 

0.021 

0.043 

nh 3 

io - 4 

IO" 4 

N 2 

0.039 

0.039 

c 

0.631 

0.636 
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APPENDIX H 

EQUILIBRIUM CONVERSIONS OF CARBON-HYDROGEN- 
OXYGEN-NITROGEN REACTIONS 

This appendix presents the equilibrium conversions at 
temperatures between 500°K and 3000°K for 100 chemical reac- 
tions in the C-H-O-N system. 

The results presented in this appendix were used as a 
tool to help select the reactions of importance for the 
kinetics model. This is by no means an exhaustive search 
but it is indeed an extensive one. 

Sources of these reactions were too many and varied to 
list them all. However, there were several sources that 
were extensive surveys of chemical reactions. One was a 
very specialized survey done by Pike (1) covering possible 
reactions resulting from the decomposition product of 
charring ablators. Another was an extensive Bibliography 
by Hockstein (2) , and finally the work of Bahn (3) . Bahn 
had a massive compendium of several hundred chemical reac- 
tions in the C-O-N system. Many of Bahn reactions were not 
analyzed because of the lack of available thermodynamic data 

The C-H-O-N system was divided into eight categories. 
These are carbon-hydrogen, carbon-oxygen, nitrogen-oxygen, 
hydrogen-oxygen, carbon-hydrogen^oxygen, carbon-hydrogen- 
nitrogen, hydrogen-nitrogen-oxygen and carbon-nitrogen- 
oxygen reactions. 

A total of 47 reactions for the carbon-hydrogen reac- 
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tions are presented in Table H-l with hydrocarbon reactions 
with up to four carbon atoms. Benzene and phenol reactions 
were not considered because the reactions for these compo^- 
nents had already been selected and the kinetic data availa- 
ble was rather minimal. 

Table H-2 presents Sevan carbon-oxygen reactions. 

Table Hr3 lists 18 reactions in the nitrogen-oxygen system, 
except the last reaction in the table which is nitrogen 
dissociation. As can be seen, N 2 is a pretty stable compo- 
nent even at the very high temperature of 3000°K. The same 
can be said about the dissociation of CO (reaction 5 in 
Table H-2) . 

Table H-4 is a compendium of 11 hydrogen-oxygen reac- 
tions. In contrast to the reactions of Tables H”1 through 
H-3, every reaction in this table has an equilibrium 
conversion greater than zero at 3000°K. It is interesting 
to note that reactions 1 and 3 have practically the same 
equilibrium conversion, at leat to the number of significant 
digits shown; reaction 4 shows a very similar equilibrium 
conversion behavior as Equations 1 and 3. Reactions 9, 10, 
and 11 show the dissociation of hydroxyl radical, hydrogen 
and oxygen molecules respectively. As can be seen from the 
tabulation of the equilibrium conversion, there is no 
significant dissociation of these components until they 
reach a temperature of 300 0°K. 

Table H-5 lists 10 carbon-hydrogen-oxygen reactions. 
Except for the methylene radical reaction with CO, all other 



TABLE H-l: EQUILIBRIUM CONVENSION AT FOUR TEMPERATURES 

FOR CARBON-HYDROGEN REACTIONS 


Equilibriugi Conversion 



' 



500°K 

1000 °K 

-2000 °K 

3000°K 

1. 

CH. = CH. + H 
4 3 



0. 

0. 

0.94 

48.01 

2. 

CH 4 = 1/2C 2 H 6 + 1/2H 2 



0. 

2.83 

19.56 

33.11 

3. 

CH 4 = 1/2C 2 H 4 + H 2 



0. 

5.05 

91.27 

98.71 

4. 

CH 4 = 1/2C 2 H 2 + 3/2H 2 



0. 

1.71 

99 .05 

100.0 

5. 

CH 4 = CH 2 + H 2 



0. 

0. 

7.39 

94.42 

6. 

CH 4 = C (s) + 2H 2 



3.0 

84.77 

99.92 

100.00 

7. 

ch 3 = ch 2 + h 



0. 

0. 

1.27 

-49.37 

8. 

CH 2 = CH + H 



0. 

0. 

0.3 

8.63 

9. 

CH = C. . H- H 
(g) 



0. 

0. 

1.58 

47.46 

10. 

CH = C , v + H 

1 C 1 



100.0 

100 .0 

100.0 

100 . 0 
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TABLE H-l3 EQUILIBRIUM CONVERSION AT FOUR TEMPERATURES 
FOR CARBON-HYDROGEN REACTIONS (CONTINUED) 


Equilibrium Conversion(5) 

500°K 1000°K 2000°K 3000°K 


11. 

C 2 H 6 = 2CH 3 

0. 

0. 

22.03 

100.0 

12. 

C 2 H 6 = C 2 H 4 + H 2 

0. 

50.52 

99.99 

100.0 

13. 

C 2 H 6 = CH 4 + 1/2C 2 H 4 

53.62 

98.63 

99.87 

100.0 

14. 

C 2 H 6 - CH 2 + CH 4 

0 . 

0.01 

52.51 

99.52 

15. 

C 2 H 4 = C 2 H 2 + H 2 

0 . 

4.51 

99.77 

100.0 

16. 

C 2 H 4 = 2C + 2H 2 

100.0 

100.0 

100.0 

100.0 

17. 

C 2 H 2 = 2C + H 2 

100.0 

100.0 

99.96 

99.21 

18. 

c 2 h 2 = c 2 h + h 

0.0 

0.0 

0.15 

18.75 

19. 

C 2 H = C 2 + H 

0.0 

0.0 

0.01 

1.56 

20. 

C 2 H 3 = C 2 H 2 + H 

0.0 

1.29 

96.07 

100.0 
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TABLE H-l ■: 

EQUILIBRIUM CONVERSION AT FOUR 
FOR CARBON-HYDROGEN REACTIONS 

TEMPERATURES 

(CONTINUED) 






Equilibrium 

Conversion 




500 °K 

1000°K 

2000 °K 

3000 °K 

21. 

C 3 H 6 = C 2 H 3 + CH 3 

0. 

0. 

11.37 

98.31 

22. 

C 3 H 6 = C 3 H 5 + H 

0. 

0 . 

72.37 

100.0 

23. 

C 3 H 5 = C 3 H 4 + H 

0. 

0. 

2.07 

30.88 

24. 

C 3 H 4 = 3C + 2H 2 

100.0 

100.0 

100.0 

100.0 

25. 

C 3 H 8 = C 3 H 6 + H 2 

0.01 

87.15 

100.0 

100.0 

26. 

C 3 H 8 = CH 4 + C 2 H 4 

19.61 

99.90 

100.0 

100.0 

27. 

C 6 H 6 " 3C 2 H 2 

0 . 

0. 

99.48 

100.0 

28. 

C 3 H 6 + CH 3 = CH 4 + C 3 H 5 

0.01 

0.04 

0.87 

2.30 

29. 

gh 4 + c 4 h 5 = ch 3 + c 4 h 6 

0.0 

0.42 

-5.69 

12.66 

30. 

-c 2 h 4 + ch 4 = c 3 h 6 + h 2 

0 .38 

6.63 

24.34 

25.27 
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TABLE H-l : 

EQUILIBRIUM CONVERSION AT FOUR 
FOR CARBON -HYDROGEN REACTIONS 

TEMPERATURES 

(CONTINUED) 






Equilibrium 

Conversion 




500°K 

1000 °K 

2000 °K 

3000 °K 

31. 

CH_ + H = CH, + H 
•3 2 4 

13.37 

13.61 

14.73 

16.50 

32. 

CH 2 + H = CH + H 2 

0. 

1.54 

18.69 

35.24 

33. 

C (g ) + H 2 - CH + H 

0. 

0.58 

9.27 

22.56 

34. 

C (s) + H 2 = CH + H 

0. 

0. 

0. 

0.20 

35. 

CH+C (s) =C 2 +H 

0. 

0.01 

3.80 

16.77 

36. 

C 2 + « - CH + C (g) 

0. 

0. 

0.15 

1.81 

37. 

C 2 H + H = C 2 + H 

0. 

0.11 

2.91 

9.02 

38. 

C 2 H 2 + H 2 = C 2 H 3 + H 

0. 

0. 

0.04 

0.75 

39-. 

c 2 h 2 + h = c 2 H '+ H 2 

1.90 

22.33 

47.83 

54.87 

40. 

C 2 H 3 + CH 4 = C 2 H 4 + CH 3 

33.37 

33.38 

33.55 

45 .55 
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TABLE H-l : 

EQUILIBRIUM CONVERSION AT FOUR 
FOR CARBON-HYDROGEM -REACTIONS 

TEMPERATURES 

(CONTINUED) 






Equilibrium Conversion 




500 °K 

1000°K 

2000 °K 

3000 °K 

41. 

C 3 H 5 + H 2 = C 3 H 6 + H 

o. 

o. 

0.2 

0.52 

42. 

I ' C 4 H 8 = 2C 2 H 4 

0.29 

93.90 

100.0 

100.0 

43. 

N_C 4 H 10 = C 3 H 6 + CH 4 

69.67 

100.0 

100.0 

100.0 

44. 

N ‘ C 4 H 10 = 2C 4 H 4 + H 2 

0.01 

99.27 

100,0 

100.0 

45. 

N - C 4 H 10 = C 2 H 6 + C 2 H 4 

5.13 

99.72 

100.0 

100.0 

46. 

I “ C 4 H 10 = C 3 H 6 + CH 4 

60.90 

100.0 

100.0 

100.0 
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TABLE H-2 :: 


EQUILIBRIUM CONVERSION AT FOUR TEMPERATURES 
FOR THE CARBON-OXYGEN REACTIONS 


Equilibrium Conversion 




500 °K 

1000°K 

2000 °K 

3000 °K 

1. 

C + 0- = C0_ 
2 2 

100. 

100. 

100. 

100. 

2. 

C + 1/20- = CO 
2 

100. 

100. 

100.. 

100. 

3. 

C0 2 = CO + 0 

0. 

0. 

0. 

19.0 

4. 

C , . + CO = 2C0 
(s) 2 

0. 

54.96 

100.0 

100.0 

5. 

CO = C. . + 0 
(g) 

0. 

0. 

0. 

0. 

6. 

C0 2 = C (g) + *° 

-0. 

0. 

0. 

0. 

7. 

CO- + 0 = CO + 0 o 

8.32 

39.36 

59.44 

63.14 
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TABLE E-3 ■ 

EQUILIBRIUM -CONVERSION AT FOUR TEMPERATURES 
FOR THE NITROGEN-OXYGEN REACTIONS 






Equilibrium Conversion^) 




500°K 

1000 °K 

2000 °K 

3000 °K 

1. 

NO = N + 0 

0. 

0. 

0 . 

0.04 

2. 

N 2 + °2 = 2N ° 

0. 

0. 

0.98 

5.73 

3. 

2N0 - N 2 0 +0 

0. 

0. 

0.03 

1.50 

4. 

2N0 2 = 2N0 + 0 2 

4.91 

93-99 

99.79 

100.0 

5. 

n 2 o = n 2 + 0 

0. 

14.55 

99.91 

100.0 

6. 

N0 2 = NO + 0 

0. 

0. 

39.26 

99.47 

7. 

N 2 0 = NO + N 

0 . 

0. 

3.81 

100.0 

8. 

NO + 0 2 = N0 2 ~+ 0 

0. 

0. 

0.02 

1.18 

9. 

NO + N - N 2 + 0 

0. 

0- 

0.01 

0.4 

10. 

2 NO = NO 2 + N 

0. 

o.. 

0. 

0. 
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TABLE H-3 : EQUILIBRIUM CONVERSION AT FOUR TEMPERATURES 

FOR NITROGEN- OXYGEN REACTIONS (CONTINUED) 


Equilibrium Conversion 




500°K 

1000°K 

2000°K 

3000 °K 

11. 

N0 2 + N 2 = NO + N 2 0 

0. 

0.04 

1.88 

7.62 

12. 

N 2 + 0 = 2N + 1/20 2 

0. 

0 . 

0. 

0. 

13. 

N 2 + ° 2 = N0 2 + N 

0. 

0. 

0. 

0. 

14. 

NO + 0 = N + 0 2 

0. 

0. 

0.00 

3.7 

15. 

n 2 + o 2 + n 2 o + 0 

0 . 

0 . 

0. 

0.01 

16. 

NO + N 2 = N 2 0 + N 

0. 

0 . 

0. 

0- 

17. 

N 2° + ° 2 = 2N0 + 0 

0. 

0. 

0. 

0. 

18. 

N 2 = 2N 

0. 

0. 

0. 

0. 
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T ABLE H-4 : EQUILIBRIUM CONVERSION AT FOUR TEMPERATURES 

FOR THE HYDROGEN-OXYGEN REACTIONS 


Equilibrium Conversion^) 




500°K 

1000°K 

2000 °K 

3000°I 

1. 

H 0 = OH + H 
2 

0.01 

2.20 

15.94 

27.33 

2. 

h 2 o = o + h 2 

0. 

0. 

0. 

7.19 

3. 

H 2 0 + 0 = 2 OH 

0. 

2.20 

15.94 

27.33 

4. 

h 2 + ° 2 = 2 OH 

0.03 

2.26 

16.79 

27-93 

5. 

0 + H 2 = OH + H 

37.06 

48.31 

54.25 

56.29 

6. 

0+ OH = H 2 + OH 

100.0 

100.0 

100.0 

97.1 

7. 

H 2 0 + H = H 2 + OH 

0.37 

4.57 

24.26 

36.87 

8. 

H + 0 2 = OH + 0 

0.18 

6.11 

32.73 

47.96 

9. 

OH = 0 + H 

0. 

0. 

0.17 

12.11 

10. 

H 2 = 2H 

0. 

0. 

0.01 

7.82 

11. 

0„ = 20 

0. 

0. 

0. 

5.71 
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TABLE H-5 : EQUILIBRIUM CONVERSION AT FOUR TEMPERATURES 

FOR THE CARBON-HYDROGEN-OXYGEN REACTIONS 


Equilibrium Conversion 




500°K 

1000 °K 

2000°K 

3000°K 

1. 

CO + H = CO + OH 
2 

0. 

3.86 

40.53 

61.22 

2. 

CH 3 + ° 2 = CH + 20H 

0. 

0. 

2.24 

65-59 

3. 

C°2 + H 2 = CO + H 2 0 

7.86 

45.49 

68.12 

73.00 

4. 

ch 2 + CO = c 2 h 2 +0 

0. 

0. 

0.02 

0.23 

5. 

C 2 H + H 2 0 = C 2 H 2 + OH 

5.05 

14.33 

25.88 

32.44 

6 . 

C 2 H 3 + H 2° = C 2 H 4 + ° H 

0.01 

1.35 

7.49 

13.66 

7. 

ch 2 + 0 = co + h 2 

100. 

100- 

100. 

100. 

8. 

CH. + 0 = CH_ + OH 
4 3 

79.23 

95.59 

100. 

100. 

9. 

CH 3 + H 2 0 - CH 4 + OH 

0. 

0.71 

5.24 

10.36 

10. 

c + h 2 o = co + h 2 

0. 

84.45 

100.0 

100.0 


co 
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reactions show a measurable degree of conversion. 

Table H-6, the last table of this appendix, is a com- 
pendium of carbon-hydrogen-oxygen, hydrogen-nitrogen-oxygen 
and carbon-nitrogen-oxygen reactions. A total of 8 reactions 
are presented in this table. 



TABLE H-6 : EQUILIBRIUM CONVERSION AT FOUR TEMPERATURES 

FOR THE CARBON-HYDROGEN-NITROGEN, HYDROGEN- 
NITROGEN-OXYGEN AND CARBON-NITROGEN-OXYGEN REACTIONS 


Equilibrium Conversion 





500°K 

1000°K 

2000 °K 

3000°K 

1. 

C + 

1/2N 2 = C 2 N 2 

0. 

0. 

0. 

0.01 

2. 

HCN 

- H + CN 

0. 

0. 

0. 

9.59 

3. 

nh 3 ■ 

f C = HCN + H 2 

0. 

12.12 

99.92 

100.0 

4. 

nh 3 ^ 

= 1/2N 2 + 3/2H 2 

83.26 

99.96 

100.0 

100.0 

5. 

N + 
2 

OH = N 2 0 + H 

0. 

0. 

0.0 

0.1 

6. 

NO + 

OH = N0 2 + H 

0. 

0. 

0.36 

1.20 

7. 

NO + 

co 2 = no 2 + CO 

0. 

0. 

0.21 

1.88 

8. 

NO + 

CO = CO„ + N 

0. 

0. 

0.06 

1.86 
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